偏移线产生差异l

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

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，[W]，标准，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

试试这个：-

*根据偏移方向以+或-给出偏移距离。

copy

(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

像这样的东西？？？？

copy

(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

像这样的东西？？？？

copy

(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

这就够了。。。

copy


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

[编程交流] 偏移线产生差异l

发表回复

精选推荐