(defun c:Test (/ #Ent #Obj #Length #LType #Value)
(vl-load-com)
(while (setq #Ent (entsel "\nSelect *line: "))
(and (vl-position (cdr (assoc 0 (entget (car #Ent)))) '("LWPOLYLINE" "LINE"))
(setq #Obj (vlax-ename->vla-object (car #Ent))
#Length (vla-get-length #Obj)
#LType(strcase (vla-get-linetype #Obj))
) ;_ setq
(cond
;; hidden2
((eq #LType "HIDDEN2") (setq #Value (* 0.5 #Length)))
;; phantom2
((eq #LType "PHANTOM2") (setq #Value (+ 3 #Length)))
;; no match
(T (alert "No matching Linetypes!"))
) ;_ cond
(vl-cmdf "_.lengthen" "_total" #Value #Ent "")
(princ (strcat "\nNew Length: " (vl-princ-to-string #Value)))
) ;_ and
) ;_ while
(princ)
) ;_ defun 再次非常感谢，这正是我想要的！
我打算自己做一些工作（老实说）。；-）
不客气。
没什么大不了的，这是一个简单的程序，我基本上要写解释。你仍然需要填写所有的条件，所以你也有工作要做眨眼： Alanjt，
我在得到一点帮助后，我正在尝试让一个变体工作，你上面提出的。（顺便说一句，效果很好）
我试图得到它，这样我就可以画一条多边形线，然后在命令结束时自动调整大小。我添加了pline来画线，然后ssget来选择添加到数据库中的最后一项，但我无法让它做很多事情。我添加了以下代码：
帮助
(defun c:test ()
(vl-load-com)
(vl-cmdf "_.pline")
(setq #Ent (ssget "_l"))
(vl-position (cdr (assoc 0 (entget (car #Ent)))) '("LWPOLYLINE" "LINE"))
(setq #Obj (vlax-ename->vla-object (car #Ent))
#Length (vla-get-length #Obj)
#LType(strcase (vla-get-linetype #Obj))
) ;_ setq
(cond
;; 4-2
((eq #LType "4-2") (setq #Value (+ (* (fix (/ (- #Length 4) 6)) 6) 4)))
;; 1-5
((eq #LType "1-5") (setq #Value (+ (* (fix (/ (- #Length 1) 6)) 6) 1)))
;; no match
(T (alert "No matching Linetypes!"))
) ;_ cond
(vl-cmdf "_.lengthen" "_total" #Value #Ent "")
(princ (strcat "\nNew Length: " (vl-princ-to-string #Value)))
) 又快又脏，但试试这个：
(defun c:test (/ #Entlast #Ent #Obj #Length #LType #Value)
(vl-load-com)
(or (setq #Entlast (entlast)) (setq #Entlast T))
(vl-cmdf "_.pline")
(while (not (zerop (getvar 'cmdactive)))
(princ "\nSpecify next point: ")
(vl-cmdf PAUSE)
) ;_ while
(cond
((not (eq #Entlast (setq #Ent (entlast))))
(setq #Obj (vlax-ename->vla-object #Ent)
#Length (vla-get-length #Obj)
#LType(strcase (vla-get-linetype #Obj))
) ;_ setq
(cond
;; 4-2
((eq #LType "4-2") (setq #Value (+ (* (fix (/ (- #Length 4) 6)) 6) 4)))
;; 1-5
((eq #LType "1-5") (setq #Value (+ (* (fix (/ (- #Length 1) 6)) 6) 1)))
;; no match
(T (alert "No matching Linetypes!"))
) ;_ cond
(and #Value
(vl-cmdf "_.lengthen" "_total" #Value (list #Ent (getvar 'lastpoint)) "")
(princ (strcat "\nNew Length: " (vl-princ-to-string #Value)))
) ;_ and
)
) ;_ cond
(princ)
) ;_ defun
我让它根据最后拾取的点选择线的终点。
我要回家了，但我肯定晚些时候会回来。 在我上床睡觉之前试过，我觉得很好。
我甚至还没有接近，我花了几个小时阅读帮助文件，寻找我可以使用的命令。。。。
再次感谢。 不，你比你想象的要近。
第一次知道如何实时操作命令函数有点棘手。
若你们要有一个函数来画普林斯，还有一个函数来设置普林斯的长度，我会定义。考虑一个用于过滤部分的子程序，这将使生活变得更加轻松，并减少所需的代码量。此外，如果你更新匹配部分，你只需要做一次。 我将明确地将其分解为子例程，并且随着我们使用的线型数量的增加，长度公式也会增加。 你好，
希望还有一个问题…；-）
我正在尝试确保在绘制线之后，在该线上启用“类型生成”。我在例程的末尾添加了以下内容，但它不起作用，因为它似乎没有选择行。
任何帮助都将不胜感激。
(vl-cmdf "_.pedit" #Ent "L" "on")
尝试额外的“”。
(vl-cmdf "_.pedit" #Ent "_L" "on" "")
页:
1
[2]