一个图层生成的实例

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

[em0][em0][em0]

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不很懂造成的。谢谢所有发代码的人

账号		自动登录	找回密码
密码			注册

一个图层生成的实例

浏览过的版块