王航 发表于 2014-4-16 19:34:38

线宽设置问题，请教各位高手，请不吝赐教，谢谢！

请教各位高手，我想将下面的程序设置线宽，请不吝赐教，谢谢！
0层       线宽0.35mm
点划线层   线宽0.15mm
细实线层   线宽0.15mm
虚线层   线宽0.15mm
辅助层   线宽0.15mm
加粗实线层 线宽0.4mm
双电划线层线宽0.2mm
(defun YH_chlayer (YH_layer / YH_S)
(if (null (tblsearch "LAYER" YH_layer))
    (entmake (list
      '(0 . "LAYER")
      '(100 . "AcDbSymbolTableRecord")
      '(100 . "AcDbLayerTableRecord")
      (cons 2 YH_layer)          ;图层名称
      '(70 . 0)               ;图层状态
      '(62 . 7)               ;图层颜色
      '(6 . "bylayer")          ;图层线型
)
      )
    )
(setq YH_S (cadr (ssgetfirst)))
(if YH_S
    (command "CHPROP" YH_S "" "la" YH_layer "c" "bylayer" "")
    (setvar "clayer" YH_layer)
    )
(princ)
)
(setq lay "点划线")
(setq col "1")
(setq lt "CENTER")
(if (tblsearch "layer" lay) ""
      (progn
      (command "-layer" "m" lay "color" col "" "l" lt "" "")
      (command "clayer" olay)
      )
)
(setq lay "细实线")
(setq col "3")
(setq lt "Continuous")
(if (tblsearch "layer" lay) ""
      (progn
      (command "-layer" "m" lay "color" col "" "l" lt "" "")
      (command "clayer" olay)
      )
)
(setq lay "加粗实线")
(setq col "4")
(setq lt "Continuous")
(if (tblsearch "layer" lay) ""
      (progn
      (command "-layer" "m" lay "color" col "" "l" lt "" "")
      (command "clayer" olay)
      )
)
(setq lay "虚线")
(setq col "2")
(setq lt "HIDDEN2")
(if (tblsearch "layer" lay) ""
      (progn
      (command "-layer" "m" lay "color" col "" "l" lt "" "")
      (command "clayer" olay)
      )
)
(setq lay "双点划线")
(setq col "6")
(setq lt "DIVIDE2")
(if (tblsearch "layer" lay) ""
      (progn
      (command "-layer" "m" lay "color" col "" "l" lt "" "")
      (command "clayer" olay)
      )
)
(setq lay "辅助层")
(setq col "5")
(setq lt "Continuous")
(if (tblsearch "layer" lay) ""
      (progn
      (command "-layer" "m" lay "color" col "" "l" lt "" "")
      (command "clayer" olay)
      )
)
(defun c:1111 ()
(YH_chlayer "0")
)
(defun c:2222 ()
(YH_chlayer "点划线")
)
(defun c:3333 ()
(YH_chlayer "细实线")
)
(defun c:4444 ()
(YH_chlayer "加粗实线")
)
(defun c:5555 ()
(YH_chlayer "虚线")
)
(defun c:6666 ()
(YH_chlayer "双点划线")
)
(defun c:7777 ()
(YH_chlayer "辅助层")
)

菜卷鱼 发表于 2014-4-17 12:53:15

不知道你要表达什么意思，反正我设置线型的时候是这样的

(if (null (tblsearch "layer""虚线"))
(progn (setq mm_lay (getvar "CLAYER"))
(setvar "cmdecho" 0 )
(command "_layer" "m" "虚线" "c" "2" "" "l" "DASHED" """lw" "0.18" "虚线" "")
(setvar "cmdecho" 1 )
(setvar "clayer" mm_lay )))

王航 发表于 2014-4-18 11:47:49

菜卷鱼 发表于 2014-4-17 12:53 static/image/common/back.gif
不知道你要表达什么意思，反正我设置线型的时候是这样的

谢谢，知道了

llsheng_73 发表于 2014-4-21 13:50:06

本帖最后由 llsheng_73 于 2014-4-21 14:01 编辑

批量设置图层线宽
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=109854&fromuid=202795

;;(laysxk'(("0" 35)("点划线层" 15)("细实线层" 15)("虚线层" 15)("辅助层" 15)("加粗实线层" 40)("双电划线层" 20)))


页: [1]
查看完整版本: 线宽设置问题，请教各位高手，请不吝赐教，谢谢！