社区 › Auto Lisp › 在选定对象之间插入块

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

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

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

 
 
更改此项：
 

(setq dblk (vlax-invoke
                      (vlax-get (vla-get-ActiveLayout adoc) 'Block)
                      'insertblock
                      adomid
                      "aerial distance -dyn"
                      1
                      1
                      1
                      adoang)
         )

 
收件人：
 

(setq dblk (vlax-invoke
            (vla-get-modelspace aDoc)
                      '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

更改此

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

 
到这个
 

(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

查看完整版本: 在选定对象之间插入块