请高手指教，下面这段lisp怎样才能实现对PLINE线也适用？？

zlq1318 · 发表于 2013-4-9 23:38

请教下面这段lisp只能针对普通的线修改线型，譬如对封闭矩形就没法实现
怎么才能实现对多段线即PLINE也适用，请高手指教
;;;改线型为PHANTOM2
(defun c:222( )
  (setq ss (ssget '((0 . "*line"))))
  (setq ssnum(sslength ss))
  (setq nb 0)
  (while (< nb ssnum)
  (progn (setq en (entget (ssname ss nb)))
  (setq oli (assoc 6 en))
  (setq nli (cons 6 "PHANTOM2"))
  (if (= oli nil)
  (setq en (cons nli en))
(setq en (subst nli oli en))
);endif
  (entmod en)
   (setq nb (1+ nb))
)
  ))

zlq1318 · 发表于 2013-4-10 00:02

呜呼都没人理偶啊，只好自己顶一下，估计是太晚了，大侠们都休息了。

llsheng_73 · 发表于 2013-4-10 10:12

本帖最后由 llsheng_73 于 2013-4-10 10:15 编辑

看了一下，好象你这不是对pline无效，而是对线型随层的无效吧，因为当线型为随层的时候，oli为NIL
因为组码6 线型名（如果不是“随层”，则出现）
你在IF里边对(= OLI NIL)为真时的处理是 (setq en (cons nli en)),nli在前边是 (setq nli (cons 6 "PHANTOM2")),这样一来EN不再是一个合法的图元数据了，后边的ENTMOD会无效
你把 (setq en (cons nli en))改成(setq en(append en(list nli)))试下？

lsjj · 发表于 2013-4-10 12:28

用CHPROP就可以了,即使很多人覺得沒水平,別在意

zlq1318 · 发表于 2013-4-29 00:15

非常感谢llsheng_73，我试了一下确实可以，解决了这个问题，好开心。在此表示感谢！！

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

[基础] 请高手指教，下面这段lisp怎样才能实现对PLINE线也适用？？