超然 发表于 2006-3-18 10:28:00

CAD里面的EXTEND和TRIM命令中的SHIFT是怎么实现的？

CAD里面的EXTEND和TRIM命令中的SHIFT-SELECT切换是怎么实现的？能否用LISP编程实现？

ljpnb 发表于 2006-3-18 10:48:00

<P>CAD里面的EXTEND和TRIM命令中的SHIFT-SELECT切换是怎么实现的？---&gt;</P>
<P>当执行trim命令时，当按下shift键（要一直按着)时，系统会暂时切换到extend命令，放开shift键还是回到trim命令中。反之也一样</P>
<P>LISP程序不可能做到这么灵活的切换。</P>

skg123 发表于 2022-5-9 16:12:44

1）Lisp 实现“mirror”
(command "mirror" ent1 ent2 ent3 ent4 "" pt1 pt2 "n")

ent1之类的为图元名（未验证）

(command "mirror" ss "" pt1 pt2 "n")

ss为选择集

(command "mirror" ss "" pt1 pt2 "y")

y为删除原图元

2）Lisp 实现“extend”
(command "extend" ent1 "" ent2 "")

ent1为边界，ent2为要延伸的图元

(command "extend" zxLname "" (list LtcLname cs) "")

zxLname为边界，LtcLname为要延伸的图元，cs为LtcLname一端点（x,y,z）用以表明需要延伸的一端。 作者：Llimity https://www.bilibili.com/read/cv9739605/ 出处：bilibili

自贡黄明儒 发表于 2022-5-9 18:15:33

(ACET-SYS-SHIFT-DOWN)
页: [1]
查看完整版本: CAD里面的EXTEND和TRIM命令中的SHIFT是怎么实现的？