只需一步,快速开始
Andyhon 发表于 2011-12-21 10:43 (Defun C:test () (setq ee (entsel "\n选择紫色的圆弧: ") ee (car ee) pts (acet-geom-object-end-points ee) ; 获得圆弧两端点 pa (car pts) pb (cadr pts) ssa (ssget "C" pa pa '((0 . "LINE"))) ssb (ssget "C" pb pb '((0 . "LINE"))) ) (princ "\n框选连结区的线: ") (setq ss (ssget '((0 . "LINE")))) (cond ((ssmemb (setq ee (ssname ssa 0)) ss)) ((ssmemb (setq ee (ssname ssb 0)) ss)) (T (Alert "状况外!")) ) (acet-geom-object-end-points ee) ; 获得A和B两点 )
使用道具 举报
本版积分规则 发表回复 回帖后跳转到最后一页
小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 ) ©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途
GMT+8, 2024-5-19 11:39 , Processed in 0.209466 second(s), 29 queries , Gzip On.
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.