wharan 发表于 2012-11-1 13:35:05

一个图层生成的实例

本帖最后由 wharan 于 2012-11-4 22:31 编辑

经常用到固定的图层，做了一个小程序，信手拈来，利己利人。审图，用到一个图层，如果该图层存在，直接置于该层；否则，创建该图层。
(defun c:tzjszx()
(if (= (tblobjname "STYLE" "图纸校审") nil)
    (progn
         (entmake (list
          '(0 . "STYLE")
          '(100 . "AcDbSymbolTableRecord")
          '(100 . "AcDbTextStyleTableRecord") (cons 2 "图纸校审")
          '(70 . 0)
          (cons 40 0)
          (cons 41 0.75)
         )
         )
)
)
(setvar "TEXTSTYLE" "图纸校审")
)

zyhandw 发表于 2012-11-1 17:10:44

楼主仔细看看再发，这是图层生成的实例吗？好像是文字样式的吧？
而且错误也不少，所有的图纸校审前面是不是少个"？

vlisp2012 发表于 2012-11-1 17:12:22

vlisp2012 发表于 2012-11-1 17:16:48

(defun c:layn();;;;新建图层并置物体。
(setvar "cmdecho" 0)
(setq layname (getstring "新建图层名"))

(setq chklay (tblsearch "layer" layname))
   (if (= chklay nil)
       (command "layer" "n" layname "c" "4" layname "")
   )
(setq ss (entsel "选择改变图层的物体"))

(command "chprop" ss "" "la" layname ""))

chinawhy817 发表于 2012-11-2 17:46:14

挂羊头卖狗肉...

szxgsh 发表于 2013-6-19 16:17:16

yangist 发表于 2013-6-20 13:07:34

跟图层真没什么关系

清风明月名字 发表于 2013-6-20 15:08:27

也是好心，只是可能LISP不很懂造成的。谢谢所有发代码的人
页: [1]
查看完整版本: 一个图层生成的实例