yhly555 发表于 2015-3-12 11:04:57

关于圆改线宽的问题

我想用LISP去修改图纸中的圆的线宽改为0.15，如何实现，谢谢！


819534890 发表于 2015-3-12 12:07:15

把组码370的值改为15，如果没有370说明随层，自己插入370组码；
或者vla-put-LineWeight改线宽

yhly555 发表于 2015-3-12 13:25:43

819534890 发表于 2015-3-12 12:07 static/image/common/back.gif
把组码370的值改为15，如果没有370说明随层，自己插入370组码；
或者vla-put-LineWeight改线宽

我是个初学者，可不可以举个例说明一下，谢谢！

819534890 发表于 2015-3-12 16:04:47

yhly555 发表于 2015-3-12 13:25 static/image/common/back.gif
我是个初学者，可不可以举个例说明一下，谢谢！

;Lineweight
;acLineWeight 常数
; 可读写
;|
acLnWtByLayer
acLnWtByBlock
acLnWtByLwDefault
acLnWt000
acLnWt005
acLnWt009
acLnWt013
acLnWt015
acLnWt018
acLnWt020
acLnWt025
acLnWt030
acLnWt035
acLnWt040
acLnWt050
acLnWt053
acLnWt060
acLnWt070
acLnWt080
acLnWt090
acLnWt100
acLnWt106
acLnWt120
acLnWt140
acLnWt158
acLnWt200
acLnWt211
|;

(vl-load-com)
(defun c:changelineLineweight()
(setq obj (vlax-ename->vla-object (car (entsel "请选择要改线宽的对象"))))
(vla-put-LineWeight obj acLnWt090) ;把线宽改为0.90
)

yhly555 发表于 2015-3-12 19:55:27

819534890 发表于 2015-3-12 16:04 static/image/common/back.gif


灰常感谢！

llsheng_73 发表于 2015-3-22 20:40:51

本帖最后由 llsheng_73 于 2015-3-24 14:42 编辑

yhly555 发表于 2015-3-12 13:25 http://bbs.mjtd.com/static/image/common/back.gif
我是个初学者，可不可以举个例说明一下，谢谢！

(defun moddxf(dxf i value / a b)
   (setq b(cons i value))
   (if(setq a(assoc i dxf))(subst(cons i value)a dxf)(append dxf(list(cons i value)))))
(defun moddxf(dxf i value)
    (append(vl-remove(assoc i dxf) dxf) (list(cons i value))))


(setq e(car(entsel)))
(entmod(moddxf(entget e) 370 15))

yhly555 发表于 2015-3-23 14:40:52

llsheng_73 发表于 2015-3-22 20:40 static/image/common/back.gif


看上去简单了很多，谢谢！
页: [1]
查看完整版本: 关于圆改线宽的问题