新建图层问题

xiao88gang

哪个位高手能帮我把这个插件加一语名，把它放到“外框”这个图层，并将颜色变为粉红色。可以新建一个图层。如图
(defun c:vv ()
   (xdrx_prompt "\n选取生成外框的实体<退出>:")
  (if (setq ss (ssget))
    (progn
(if (not (setq dis (getreal "\n输入板边30<0>:")))
    (setq dis 30)
  )
      (setq box (xdrx_entity_box ss))
      (if (> dis 0)
        (setq box (xdrx_points_offset (abs dis) (xd::pnts:close box)))
      )
      (command "explode" (xdrx_polyline_make box t))
    )
  )
  (princ)
)

669423907

试一下吧：
(defun c:vv ()
   (xdrx_prompt "\n选取生成外框的实体<退出>:")
  (if (setq ss (ssget))
    (progn
(if (not (setq dis (getreal "\n输入板边30<0>:")))
    (setq dis 30)
  )
      (setq box (xdrx_entity_box ss))
      (if (> dis 0)
        (setq box (xdrx_points_offset (abs dis) (xd::pnts:close box)))
      )
      (command "explode" (xdrx_polyline_make box t))
    )
  )
  
(if (= (tblsearch "Layer" "板边框") nil)
(command "Layer" "new" "板边框" "color" "6" "板边框" ""))
(command "chprop" (entlast) "" "p" "la" "板边框" "")
  (princ)
)

xiao88gang

669423907 发表于 2016-10-31 22:50
(defun c:vv ()
   (xdrx_prompt "\n选取生成外框的实体:")
  (if (setq ss (ssget))

谢谢你的帮助，问题解决了。