yang686526

二次开发现成实例，快速自动标注目标坐标。出图效率极大提高。
www.dimcax.com
二次开发现成实例，快速自动标注目标坐标。出图效率极大提高。
(defun c:ad5 (/ ss po en1 le1 po1 x y el0 lay na ss0 txt)
(prompt "\n>>>请先用filter筛选标注目标<<<")
(setq v1 (getvar "cmdecho"))
(setq os (getvar "osmode"))
(setq dz1(getvar "dimzin"))
(setvar "dimunit" 2)
(setvar "dimzin" 0)
(setvar "dimtzin" 8)
(setvar "blipmode" 0)
(setvar "cmdecho" 0)
(setvar "menuecho" 0)
(setq ss (ssget "p"))
(setvar "osmode" 32)
(setq po (getpoint "请键入原点:"))
(setvar "osmode" 0)
(setvar "pdmode" 3)
(command "point" po)
(setvar "pdmode" 0)
(setq en1 (entlast))
(setq le1 (entget en1))
(setq po1 (cdr (assoc '10 le1)))
(setq x (- (car po1) (car po)))
(setq y (- (cadr po1) (cadr po)))
(command "erase" "l" "")
(setvar "osmode" os)
(if (= def1 nil)
(setq def1 1)
)
(prompt "\n请输入尺寸的小数点精确位<") (princ def1)
(setq acc (getint ">:"))
(if (= nil acc)
(setq acc def1)
)
(setq def1 acc)
(if (= def2 nil)
(setq def2 1)
)
(prompt "\n序号从第几开始<") (princ def2)
(setq nx (getint ">？:"))
(if (= nx nil)
(setq nx def2)
)
(prompt ">>>标记文字位置(与标注点的距离)<<<")
(setq pdx (getreal "x方向值<0>:"))
(setq pdy (getreal "y方向值<0>:"))
(if (= nil pdx)
(setq pdx 0)
)
(if (= nil pdy)
(setq pdy 0)
)
(setvar "osmode" 0)
(setq p0 (getpoint "\n列表位置:"))
(setvar "osmode" os)
;;(setq ss (ssget "p"))
(setq n (sslength ss))
(setq def2 (+ nx n))
(setq n0 (itoa n))
(setq el0 (entget (ssname ss 0)))
(setq lay (cdr (assoc '8 el0)))
(if (/= lay1 lay)
(progn
(prompt "\n>>>已是新模板请确认文件nc.txt內容已删除<<<")
(setq f (getstring "文件nc.txt內容已删除<确认>?"))
(setq f (open "c:\\temp\\nc.txt" "a"))
(setq lyn (strcat "/" "(" lay ")"))
(write-line lyn f)
(close f)
)
)
(setq lay1 lay)
(setq na (cdr (assoc '0 el0)))
(if (= "arc" na)
(progn
(setq ss0 (cdr (assoc '40 el0)))
(setq ss0 (rtos ss0 2 acc))
(setq txt (strcat n0 "-r" ss0))
)
)
(if (= "circle" na)
(progn
(setq ss0 (cdr (assoc '40 el0)))
(setq ss0 (rtos (* ss0 2) 2 acc))
(setq txt (strcat n0 "-φ" ss0))
)
)
(if (= "insert" na)
(progn
(setq ss0 (cdr (assoc '2 el0)))
(setq txt (strcat n0 "-" ss0))
)
)
(setq ncl (strcat "/" "(" txt ")"))
(setq f (open "c:\\temp\\nc.txt" "a"))
(write-line ncl f)
(close f)
(setq tsl (+ 5 acc))
(setq ts (getvar "textsize"))
(setq pln (list (car p0) (- (cadr p0) (* 2 ts))))
(setq ply (list (+ (car pln) (* (+ 3 tsl tsl 0.5) ts)) (cadr pln)))
(setq pn (list (+ (car pln) (* 0.5 ts)) (+ (cadr pln) (* 0.5 ts))))
(setq pns (list (car pn) (+ (cadr pn) ts)))
(setq px (list (+ (car pn) (* (+ (/ tsl 2) 1.5) ts)) (cadr pn)))
(setq pxs (list (car px) (+ (cadr px) ts)))
(setq py (list (+ (car px) (* tsl ts)) (cadr px)))
(setq pys (list (car py) (+ (cadr py) ts)))
(setq ph (list (- (car p0) ts) (+ (cadr p0) 0.5)))
;(setq phs (list (car ph) (+ (cadr ph) (* 2 ts))))
(setvar "osmode" 0)
;(setvar "textsize" (+ ts 0.5))
;(command "mtext" ph phs txt "")
;(setvar "textsize" ts)
(command "line" pln ply "")
(command "mtext" pn pns "no" "")
(command "mtext" px pxs "x" "")
(command "mtext" py pys "y" "")
(setq i 0)
(repeat n
(setq el (entget (ssname ss i)))
(setq ls (cdr (assoc '10 el)))
(setq i (+ i 1))
(setq lx (- (car ls) (car po1)))
(setq ly (- (cadr ls) (cadr po1)))
(setq ncx (rtos lx 2 3))
(setq ncy (rtos ly 2 3))
(setq ncl (strcat "x" ncx "y" ncy))
(setq f (open "c:\\temp\\nc.txt" "a"))
(write-line ncl f)
(close f)
(setq ls (list (- (car ls) x) (- (cadr ls) y)))
(setq pt (list (- (+ (car ls) pdx) (/ ts 2)) (+ (cadr ls) pdy)))
(if (and (= 0 pdx) (= 0 pdy))
(setq pt (list (- (car ls) (/ ts 3)) (- (cadr ls) (/ ts 2))))
)
(setq pt1 (list (car pt) (+ (cadr pt) ts)))
(setvar "osmode" 0)
(command "mtext" pt pt1 nx "")
(setvar "osmode" os)
(setq tx (rtos lx 2 acc))
(setq ty (rtos ly 2 acc))
(setq pln (list (car pln) (- (cadr pln) (* 2 ts))))
(setq pn (list (+ (car pln) (* 0.5 ts)) (+ (cadr pln) (* 0.5 ts))))
(setq pns (list (car pn) (+ (cadr pn) ts)))
(setq px (list (+ (car pn) (* 3 ts)) (cadr pn)))
(setq pxs (list (car px) (+ (cadr px) ts)))
(setq py (list (+ (car px) (* tsl ts)) (cadr px)))
(setq pys (list (car py) (+ (cadr py) ts)))
(setq ply (list (+ (car py) (* tsl ts)) (cadr pln)))
(setvar "osmode" 0)
(command "line" pln ply "")
(command "mtext" pn pns nx "")
(command "mtext" px pxs tx "")
(command "mtext" py pys ty "")
(setq nx (+ nx 1))
(setvar "osmode" os)
)
(setq plx (list (+ (car pln) (* 3 ts)) (cadr pln)))
(setq pxy (list (+ (car plx) (* tsl ts)) (cadr plx)))
(setq p0x (list (+ (car p0) (* 3 ts)) (cadr p0)))
(setq p1 (list (+ (car p0x) (* tsl ts)) (cadr p0x)))
(setq p0y (list (car ply) (cadr p0)))
(setvar "osmode" 0)
(setq phs (list (+ (car p0y) ts) (+ (cadr p0y) (* 2 ts))))
(setvar "textsize" (+ ts 0.5))
(command "mtext" ph "j" "mc" phs txt "")
(setvar "textsize" ts)
(command "line" p0x plx "")
(command "line" p1 pxy "")
(command "line" pln p0 p0y ply "")
(setvar "osmode" os)
(setvar "cmdecho" v1)
(setvar "dimzin" dz1)
)
mns里建个按键指向这个lsp就行了。注意要先刷选目标。c盘要有temp临时文件夹。
另外我这是照搬别人的东东，谁能帮我弄一下，使之可以每例10行表格自动换行继续啊谢谢了！不这样出图的时候长长一排坐标和图形比例就对不上了，打印出来图形只有一点点大~~~

怎么用啊？我加载了不知咋用，能说明怎么用吗？我初学

能不能麻烦lz说清楚一点阿

图片：

gg
描述：改后缀为lsp
64
太好，真是我要的，只是用不了
请楼主给详细点，nc.txt是什么样的文件

是改完后缀后加载吗？

你们都是cad制造的吗，怎么对语言这么熟悉啊
麻辣鸡丝

谢谢

你能直接做成。lsp文件吗？没有编程基础的头晕啊。

你真是好人,我爱你

我也不懂!