cad高程标注插件lisp_【源码】CAD高程转标高,CAD插件大全,小懒人CAD工具箱

【源码】CAD高程转标高,CAD插件大全,小懒人CAD工具箱

CAD,CAD插件,CAD标高

CAD快速标高插件

;;;功能：高程点转标高

;;;逆流而上的鱼制作

(defun c:tt();;;

(setvar "OSMODE" 0)

(if (setq ss (ssget (list (cons 2 "GC200"))))

(repeat (setq k (sslength ss))

(setq ent (ssname ss (setq k (1- k))))

(setq pt (cdr (assoc 10 (entget ent))))

(setq pt0 (list (car pt) (cadr pt) 0.0))

(setq gc1 (rtos (caddr pt) 2 2))

(setq pt1 (polar pt0 (* pi 0.67) 1.5))

(setq pt2 (polar pt0 (* pi 0.33) 1.5))

(setq pt3 (polar pt1 0  4.5))

(setq pt4 (polar pt0 (* pi 0.5) 1.5))

(entmake (list

(cons 0 "LINE")

(cons 62 1)

(cons 10 pt0)

(cons 11 pt1)

(cons 8 "BG")

)

)

(entmake (list

(cons 0 "LINE")

(cons 62 1)