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

王航

请教各位高手，我想将下面的程序设置线宽，请不吝赐教，谢谢！
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 "辅助层")
  )

菜卷鱼

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

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

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

王航

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

谢谢，知道了

llsheng_73

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

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