JerryFiedler 发表于 2022-7-6 12:51:50

线对象上的特殊端点

问候语,
我正在使用AutoCad LT 09。我正在寻找一种方法(lisp例程)从一个点到另一个点绘制一条线,这条线的每一端都有一个“回退”。该线的外观和行为类似于维度上的引线,但回退将在两端。请参阅所附图像作为示例。
这条线的末端仍然在绘制它的节点上,但这条线的每一端似乎都有点短。在本例中,线对象端点(控制柄)将位于I形对象的中心。
 
提前感谢您,感谢任何能够对此有所了解的人。
杰瑞

NBC 发表于 2022-7-6 13:14:39

首先,您声明正在使用LT;如果没有某种形式的附加组件(如LT扩展器)的帮助,LT无法使用LSP功能。
实现所需结果的一种方法是创建一个不包含任何对象的块;然后创建新的标注样式。
在新创建的标注样式中,可以将“箭头”设置为先前创建的块。这会给人留下“线”末端有间隙的印象。然后创建尺寸,而不是列位置之间的线

JerryFiedler 发表于 2022-7-6 13:45:30

NBC,谢谢你的想法。我的LT确实有一个扩展程序,我们使用各种lisp例程。
我将尝试一下你的维度风格。

Lee Mac 发表于 2022-7-6 13:53:37

只是一个快速的
 

(defun c:lback (/ tmp p1 p2)

(or *def (setq *def 0.1))
(or (not (setq tmp (getdist (strcat "\nSpecify Set Back <" (rtos *def) "> : "))))
   (setq *def tmp))

(if (and (setq p1 (getpoint "\nSpecify First Point: "))
          (setq p2 (getpoint p1 "\nSpecify Second Point: ")))
   (progn
   (setq p1 (trans p1 1 0) p2 (trans p2 1 0))
   (setq p1 (polar p1 (angle p1 p2) *def)
         p2 (polar p2 (angle p2 p1) *def))

   (entmake (list (cons 0 "LINE")
                  (cons 10 p1)
                  (cons 11 p2)))))

(princ))
         
         
         

页: [1]
查看完整版本: 线对象上的特殊端点