[求助]请高手帮我分析下这小程序哪里有问题？

etg198

ZZXXQQ发表于2010-6-27 18:29:002楼改了，能框选，再试试。

谢谢版主！

不过整张图纸中，矩形比较多，有很多不需要加外边框的，请问能不能规定只给某层（比如：E层）的矩形加外框，再次感谢！

etg198

版主的程序很不错！ 一步到位！

 

我在此行加了指定层选择矩形，(if (setq ss (ssget '((0 . "LWPOLYLINE") (70 . 1) (8."某层"))))

 

增加了把边框放在另一指定层（红色部分）

 

  (command "pline" pt4 pt5 pt6 pt7 "c")
  (setq ent2 (entget(entlast)))
  (setq oldr (assoc 8 ent2))
  (setq newr (cons 8 "KT层"))
  (setq ent2 (subst newr oldr ent2))
  (entmod ent2)
  (command "mirror" "l" "" pc1 pc2 "N")

 

另，原程序还有点小错误，下面第三个pt1应该改为ptm

 

  (if (> dis2 dis1)

     (setq ptm pt1 pt1 pt3 pt3 pt1 ptm dis1 dis1 dis2 dis2 ptm)

    )

 

再次感谢版主及楼上的各位网友！

lsjj

etg198发表于2010-6-28 21:13:00  增加了把边框放在另一指定层（红色部分）     (command \"pline\" pt4 pt5 pt6 pt7 \"c\")  (setq ent2 (entget(entlast)))  (setq oldr (assoc 8 ent2))&

可以

(setvar "clayer" "KT層")

...

(command "pline" pt4 pt5 pt6 pt7 "c")

...

(setvar "clayer" 指令前的目前層)

 

這樣省事多了

etg198

lsjj发表于2010-6-28 21:28:00可以 (setvar \"clayer\" \"KT層\") ... (command \"pline\" pt4 pt5 pt6 pt7 \"c\") ... (setvar \"clayer\" 指令前的目前層)   這樣省事多了

这样也可以，不过如果我图纸尚未新建“KT层”时，这样编会出错吗？不出错就挺好的

 

 (setq newr (cons 8 "KT层"))可以新建“KT层”

czcxxx