昨天我写了草图线t

lijinsong1972 · 发表于 2022-7-5 18:28:01

大家好，昨天辛苦做的程序，使用了过程的递归。注意画草图时逆时针画，点结束的位置。
大家好，昨天辛苦做的程序，使用了递归过程。注意逆时针绘制，端点位置草图。

7040

;递归

（defun lr（点1点2）
（setq ssets（ssget“f”（列表点1点2））；
计数（sslength SSET）
添加0
)
（重复计数
（setq对象（entget（ssname ssets add））
点1（cdr（assoc 10对象））
点2（cdr（assoc 11对象））
)
（命令“select”ssets“a”（ssget“P”）“”）
（命令“pedit”“m”ssets““j”“0”）
（lr点1点2）
（命令“select”ssets“a”（ssget“P”）“”）
（命令“pedit”“m”ssets““j”“0”）
（lr点2点1）
（setq add（1+add））
)
)

（定义c:pesk（）
（setvar“Peditacept”1）
（setq对象（entget（car（entsel）））
点1（cdr（assoc 10对象））
点2（cdr（assoc 11对象））
)
（lr点1点2）
（setvar“Peditacept”0）
（prin1）
)

[编程交流] 昨天我写了草图线t

发表回复

精选推荐