（5币）求解 SSGET 使用中的问题

yanguangfei · 发表于 2012-5-31 21:27:45

测试代码如下

(defun c:tt ()
(if (setq ss (ssget "f" (list (getpoint  "\n 指定起点:")(getpoint "\n 指定终点:")) '((0 . "*POLYLINE") (-4 . "<not")(8 . "0") (-4 . "not>"))))
      (progn
   (setq i 0)
   (repeat (sslength ss)
   (setq
         name (ssname ss i)
   )
   (command "change" name "" "p" "c" "1" "")
   (setq i (1+ i))
   )
  )
      (princ "\n 无效的选择!")
)
  (sslength ss)
)

该贴已经同步到 yanguangfei的微博

yanguangfei · 发表于 2012-5-31 21:32:53

本帖最后由 yanguangfei 于 2012-6-1 18:00 编辑

注意选择方式至擦边，不相交，选择效果 DWG 文件已上传至明经 AutoLISP 编程群共享，在此添加不了附加谅解

crazylsp · 发表于 2012-5-31 22:09:39

擦边，不相交是什么意思啊？

yanguangfei · 发表于 2012-5-31 23:35:40

本帖最后由 yanguangfei 于 2012-6-1 18:03 编辑

看图就明白了

账号		自动登录	找回密码
密码			注册

（5币）求解 SSGET 使用中的问题

相关帖子