请老大变个矩形转成SOLID的小程序

yzr2002626

请老大变个矩形转成SOLID的小程序，能框选能在UCS下用

ZZXXQQ

我不会变。只能编一个。

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

yzr2002626

用不起，命令执行后没的反应.还有就是那SOLID我说的意思是实体。

还有就是帮忙改下我传的个程序，让那实体改成矩形后颜色随层，不要是那4号颜色。

(defun c:srp1 ()
 (setq oldos (getvar "OSMODE"))
 (if (setq ss (ssget '((0 . "SOLID")))) (progn
  (setq i 0)
  (repeat (sslength ss)
   (setq en (ssname ss i)
   ent (entget en))
   (if (equal (distance (cdr(assoc 10 ent))(cdr(assoc 13 ent))) 0.0 1e-4)
   (entmake (list
   '(0 . "LWPOLYLINE")
   '(100 . "AcDbEntity")
   '(67 . 0)
   '(410 . "Model")
   (cons 8 (cdr(assoc 8 ent)))
   '(62 . 4)
   '(100 . "AcDbPolyline")
   '(90 . 3)
   '(70 . 1)
   '(43 . 0.0)
   '(38 . 0.0)
   '(39 . 0.0)
   (cons 10 (cdr(assoc 10 ent)))
   '(40 . 0.0)
   '(41 . 0.0)
   '(42 . 0.0)
   (cons 10 (cdr(assoc 11 ent)))
   '(40 . 0.0)
   '(41 . 0.0)
   '(42 . 0.0)
   (cons 10 (cdr(assoc 12 ent)))
   '(40 . 0.0)
   '(41 . 0.0)
   '(42 . 0.0)
   '(210 0.0 0.0 1.0)
   ))
   (entmake (list
   '(0 . "LWPOLYLINE")
   '(100 . "AcDbEntity")
   '(67 . 0)
   '(410 . "Model")
   (cons 8 (cdr(assoc 8 ent)))
   '(62 . 4)
   '(100 . "AcDbPolyline")
   '(90 . 4)
   '(70 . 1)
   '(43 . 0.0)
   '(38 . 0.0)
   '(39 . 0.0)
   (cons 10 (cdr(assoc 10 ent)))
   '(40 . 0.0)
   '(41 . 0.0)
   '(42 . 0.0)
   (cons 10 (cdr(assoc 11 ent)))
   '(40 . 0.0)
   '(41 . 0.0)
   '(42 . 0.0)
   (cons 10 (cdr(assoc 13 ent)))
   '(40 . 0.0)
   '(41 . 0.0)
   '(42 . 0.0)
   (cons 10 (cdr(assoc 12 ent)))
   '(40 . 0.0)
   '(41 . 0.0)
   '(42 . 0.0)
   '(210 0.0 0.0 1.0)
   ))
   )
   (entdel en)
   (setq i (1+ i))
  )
 ))
 (princ)
)

ZZXXQQ

 将'(62 . 4)行删掉就行了。

yzr2002626

谢谢，颜色行了。那矩形转成SOLID用不起。

ZZXXQQ

2楼改了，再试试。

yzr2002626

请问下版主，怎样才能让那矩形变成实体(SOLID)，主要是PK,PM结构的柱子是实体画的，就是传的那程序的反向操作

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

yzr2002626

行了，谢谢版主。提高了作图效率，再次感谢。