注册 登录
明经CAD社区 返回首页

wanhongron的个人空间 http://www.mjtd.com/?196543 [收藏] [复制] [分享] [RSS]

留言板

facelist doodle涂鸦板

您需要登录后才可以留言 登录 | 注册


yshf 2023-6-6 21:21
;画多段线垂线
(defun c:CCX(/ e p d)
    (vl-load-com)
    (command "_undo" "be")
    (if (= (setq d (getreal "\n 垂线长度<10>=")) nil) ;定义垂线长度
        (setq d 10.0)
    )
    (If (setq e (car (entsel "\n 拾取基准线")))
        (while (setq pt (getpoint "\n 垂足位置"))
            (setq zz (getreal "\n输入高程:"))
            (setq ang (+ (angle '(0.0 0.0 0.0) (vlax-curve-getfirstDeriv e (vlax-curve-getParamAtPoint e pt)))
                        (* pi 0.5)
                     )
            )
            (entmakex (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline")
                            '(62 . 1) '(90 . 2) '(70 . 0)
                             (cons 38 zz)
                             (cons 10 pt)
                             (cons 10 (polar pt ang d))
                    )
           )
       )
   )
   (command "_undo" "e")
   (princ)
)

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 07:53 , Processed in 0.082487 second(s), 9 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

返回顶部