在选定对象之间插入块

SLW210 · 发表于 2022-7-6 10:06:49

您需要另存为。jpg最好。。。。

pBe · 发表于 2022-7-6 10:10:47

更改此项：

 
(setq dblk (vlax-invoke
                      [color=blue](vlax-get (vla-get-ActiveLayout adoc) 'Block)[/color]
                      'insertblock
                      adomid
                      "aerial distance -dyn"
                      1
                      1
                      1
                      adoang)
           )

收件人：

copy

 
[color=black](setq dblk (vlax-invoke[/color]
            [color=blue](vla-get-modelspace aDoc)[/color]
                      'insertblock
                      adomid
                      "aerial distance -dyn"
                      1
                      1
                      1
                      adoang)
           )

Ohnoto · 发表于 2022-7-6 10:15:56

令人惊叹的

谢谢，我一直在正确的轨道上，做：（vlax get（vla get modelspace aDoc）'block）

Lee Mac · 发表于 2022-7-6 10:18:39

为什么在获得选择集后使用COND？如果用户由于“Selset”为零而未能进行选择，则会出现错误。

Ohnoto · 发表于 2022-7-6 10:20:35

李，我不能回答这个问题，但我知道它有效，因为它只适用于我们的杆位。

我发现了一个问题，虽然与vl排序一般。排序方式如下：

0+00
1+00
10+00
2+00
20+00
3+00
...
9+99

应在哪里：
1+00
2+00
3+00
...
10+00

所以发生的事情是，在这些区域之间插入了错误的值，它们被插入了数百或数千英尺之外。这也为属性重新编号做了同样的事情，但如果可能的话，应该是相同的修复。

pBe · 发表于 2022-7-6 10:25:53

更改此

copy

 
(setq StaList
          (vl-sort
                StaList
                (function (lambda (p1 p2) (< (car p1) (car p2))))))

到这个

copy

 
(setq StaList
          (vl-sort
                StaList
                (function
                      (lambda (p1 p2)
                            (<
                                  (distof (vl-string-subst
                                                "."
                                                "+"
                                                (car p1))
                                          2)
                                  (distof (vl-string-subst
                                                "."
                                                "+"
                                                (car p2))
                                          2))))))

Ohnoto · 发表于 2022-7-6 10:28:04

令人惊叹的谢谢pBe！

现在我知道将来会包括vl字符串subst

[编程交流] 在选定对象之间插入块

发表回复

精选推荐