小懒人CAD工具箱  LISP插件

首页 >> 精选插件 >>代码分享 >> 【源码】CAD高程转标高,CAD插件大全,小懒人CAD工具箱
详细内容

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

时间:2019-06-24     作者:逆流而上的鱼   阅读

【源码】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)

(cons 10 pt0)

(cons 11 pt2)

(cons 8 "BG")

)

      )

      (entmake (list

(cons 0 "LINE")

(cons 62 1)

(cons 10 pt1)

(cons 11 pt3)

(cons 8 "BG")

)

      )

      (entmake (list

(cons 0 "TEXT")

(cons 62 1)

(cons 10 pt4)

(cons 11 pt4)

(cons 8 "BG")

(cons 1 (strcat "H="gc1))

(cons 40 0.5)

(cons 72 0)

(cons 73 0)

)

      )

      (entdel ent)

      )

    )

  )


电话直呼
在线客服
在线留言
发送邮件
联系我们:
15126824036
小懒人1号
点击这里给我发消息
小懒人2号
点击这里给我发消息
还可输入字符250(限制字符250)
技术支持: 建站ABC | 管理登录
×

联系电话:151  2682  4036(段)
联系QQ:736188807
联系微信:151  2682  4036
承接CAD、CASS插件开发定制出售

扫一扫加微信

关注微信公众号

小懒人CAD工具箱,拥有功能950个,免费功能400个,下载免费使用。关注微信公众号,里面分享一些插件代码及插件使用视频等CAD技能。