taoyi0727 发表于 2019-12-11 11:13:13

默认就是-3这个值   没有宽度   你加个判断就可以了
(if (= (setq Lineweight (vla-get-Lineweight obj)) -3)
        0
        Lineweight
)

taoyi0727 发表于 2019-12-11 11:18:42

(defun c:tt (/ lineweight name obj)
        (setq name (car (entsel)))
        (if (assoc 43 (entget name))
                (progn
                        (setq obj (vlax-ename->vla-object name))
                        (setq obj (vlax-ename->vla-object (tblobjname "layer" (vla-get-Layer obj))))
                        (if (= (setq Lineweight (vla-get-Lineweight obj)) -3);-3为默认线宽
                                0.0
                                Lineweight
                        )
                )
                (cdr (assoc 43 (entget name)))
        )
)

e2002 发表于 2019-12-11 11:24:28

线宽数值是个枚举 ：
例如：
50 = 0.50mm
-1 = ByLayer
-2 = ByBlock
-3 = Default

Default = （getvar “LWDEFAULT”）

taoyi0727 发表于 2019-12-11 12:01:59

e2002 发表于 2019-12-11 11:24
线宽数值是个枚举 ：
例如：
50 = 0.50mm


(defun c:tt (/ lineweight name obj)
        (if (setq name (nentsel))
                (progn
                        (setq obj (vlax-ename->vla-object (car name)))
                        (setq Lineweight (vla-get-Lineweight obj));获取线宽
                        (cond
                                ((= Lineweight -1);随层
                                        (setq obj (vlax-ename->vla-object (tblobjname "layer" (vla-get-Layer obj))));获取图层对象
                                        (setq Lineweight (vla-get-Lineweight obj));获取线宽
                                )
                                ((and
                                       (= Lineweight -2);随块
                                       (> (length name) 2);块存在
                               )
                                        (setq obj (vlax-ename->vla-object (car (last name))));获取块对象
                                        (setq Lineweight (vla-get-Lineweight obj));获取线宽
                                )
                        )
                        (if (= Lineweight -3);默认
                                (setq Lineweight (getvar "LWDEFAULT"))
                        )
                )
        )
        Lineweight
)

谢谢版主指正是这样的吗?

taoyi0727 发表于 2019-12-11 12:18:52

e2002 发表于 2019-12-11 11:24
线宽数值是个枚举 ：
例如：
50 = 0.50mm


为什么 没有在块里的图元,线宽随块,图元的线宽也会变?

taoyi0727 发表于 2019-12-11 12:54:59

发现个这个

不是块的图元,线宽随块,他的线宽随你选择的最后一个图块的线宽变化而变化


页: 1 [2]
查看完整版本: 求段线宽代码。