谁可以帮忙写一个LISP程序

aichenggong

谁可以帮忙写一个LISP程序啊，就是插入块并炸开变为当前层，我写了个不能用请高手指教
(DEFUN C:MP ()
  (COMMAND "insert" "MP" pause "" "" "")
(command "explode" "l")
(command "change"           nn           ""           "p"           "la"           ln
           ""           "CHANGE"           "P"           ""           "P"           "C"
           "BYLAYER"           ""           "CHANGE"           "P"           ""
           "P"           "LT"           "BYLAYER"           ""
          )
)

yechh

有没有高人出马,偶也想学学

zjyangxyz

(setq Ss2 (cdr (assoc 62 (tblsearch "Layer" (getvar "clayer")))))
   (setq Ss21 (cdr (assoc 6 (tblsearch "Layer" (getvar "clayer")))))
   (setq Ss211 (cdr (assoc 2 (tblsearch "Layer" (getvar "clayer")))))   
   (command "chprop" "l" "" "c" ss2 "LT" ss21  "LA" ss211 "")
有了上面这几面，相信楼主能搞定你要的了吧！

ninja37

看一看  相互学习

aichenggong

谢放你的，意见，但是我插入块时，只有一条线改变，可不可编一个程序将一个块的所有的线改变呢