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

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

测试代码如下


(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)
)

http://bbs.mjtd.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 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 编辑

看图就明白了
页: [1]
查看完整版本: （5币）求解 SSGET 使用中的问题