昨天我写了草图线t
大家好，昨天辛苦做的程序，使用了过程的递归。注意画草图时逆时针画，点结束的位置。大家好，昨天辛苦做的程序，使用了递归过程。注意逆时针绘制，端点位置草图。
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）
)
页:
[1]