社区 › Auto Lisp › 偏移线产生差异l

121madhu 发表于 2022-7-5 23:53:41

偏移线产生差异l

1、公用工程中需要偏移线路2m。1.5米和4米…。等
每行创建新层（用户定义的新层名称）不需要颜色。
2.I定义为线型的图层名称
示例：-层名称：中压电气（---中压电气---中压电气---中压电气---中压电气---）
以及用户定义的文本之间的距离
文本之间不需要行
 
谢谢
我很抱歉我的英语很差

BIGAL 发表于 2022-7-5 23:58:08

请张贴示例dwg或图像。
 
不同的文本间距意味着它不是线型，而是文本和行，您可以使用不同的文本间距多次创建smae线型。
 
*水干管，水干管----W----W----W----W----W----W----W--
A、 40，-4.0，[“W”，标准，S=1.8，R=0.0，X=-1.8，Y=-2.0]，-4
*WATER\u MAIN2，WATER MAIN2---W---W---W---W---W---W--
A、 20，-5.08，，标准，S=1.8，R=0.0，X=1.8，Y=0.9]，-3

121madhu 发表于 2022-7-6 00:00:48

您好，先生，请查看这张图片。

satishrajdev 发表于 2022-7-6 00:05:53

试试这个：-
 
*根据偏移方向以+或-给出偏移距离。
(DEFUN C:TEST (/ A B C)
(VL-LOAD-COM)
(WHILE
   (SETQ A (GETSTRING "\nSpecify Name of New Layer :"))
    (SETQ B (CAR (ENTSEL "\nSelect Line to Offset :")))
    (INITGET 1)
    (SETQ C (GETDIST "\nSpecify Offset Distance :"))
    (VLA-ADD (VLA-GET-LAYERS
       (VLA-GET-ACTIVEDOCUMENT (VLAX-GET-ACAD-OBJECT))
         )
         A
    )
    (VLA-OFFSET
      (VLAX-ENAME->VLA-OBJECT B)
      C
    )
    (VLA-PUT-LAYER (VLAX-ENAME->VLA-OBJECT (ENTLAST)) A)
)
(PRINC)
)

Tharwat 发表于 2022-7-6 00:07:34

Satish，你知道带enter的getstring函数意味着不是零值吗？

satishrajdev 发表于 2022-7-6 00:11:53

哎呀。。。我没有意识到。。。。如何避免Tharwat

Tharwat 发表于 2022-7-6 00:14:57

 
可以添加运算符（不等于[/=]或（不等于（等式…））为了避免这种情况。

satishrajdev 发表于 2022-7-6 00:18:47

像这样的东西？？？？
 
(DEFUN C:TEST (/ A B C)
(VL-LOAD-COM)
(WHILE
   (WHILE (OR (= A NIL) (= A ""))
   (SETQ A (GETSTRING "\nSpecify Name of New Layer :"))
   )
    (SETQ B (CAR (ENTSEL "\nSelect Line to Offset :")))
    (INITGET 1)
    (SETQ C (GETDIST "\nSpecify Offset Distance :"))
    (VLA-ADD (VLA-GET-LAYERS
        (VLA-GET-ACTIVEDOCUMENT (VLAX-GET-ACAD-OBJECT))
      )
      A
    )
    (VLA-OFFSET
      (VLAX-ENAME->VLA-OBJECT B)
      C
    )
    (VLA-PUT-LAYER (VLAX-ENAME->VLA-OBJECT (ENTLAST)) A)
)
(PRINC)
)

satishrajdev 发表于 2022-7-6 00:21:13

像这样的东西？？？？
 
(DEFUN C:TEST (/ A B C)
(VL-LOAD-COM)
(WHILE
   (WHILE (OR (= A NIL) (= A ""))
   (SETQ A (GETSTRING "\nSpecify Name of New Layer :"))
   )
    (SETQ B (CAR (ENTSEL "\nSelect Line to Offset :")))
    (INITGET 1)
    (SETQ C (GETDIST "\nSpecify Offset Distance :"))
    (VLA-ADD (VLA-GET-LAYERS
        (VLA-GET-ACTIVEDOCUMENT (VLAX-GET-ACAD-OBJECT))
      )
      A
    )
    (VLA-OFFSET
      (VLAX-ENAME->VLA-OBJECT B)
      C
    )
    (VLA-PUT-LAYER (VLAX-ENAME->VLA-OBJECT (ENTLAST)) A)
)
(PRINC)
)

Tharwat 发表于 2022-7-6 00:22:20

这就够了。。。

(while(/= (setq A (getstring "\n Specify Name of New Layer :")) "")
.....

查看完整版本: 偏移线产生差异l