重画多段线

ahyin · 发表于 2022-7-6 09:16:12

(defun c:redrawpl ()
(setq sset (ssget "x" '(0 . "lwpolyline") (cons 67 (logand (1+ (getvar "TILEMODE"))1)) ))
   (setq ctr 0)
   (repeat (sslength sset)
    (setq item (ssname sset ctr))
      (vl-cmdf "_isolateobjects" item "")
       (setq ron (vlax-ename->vla-object item))
         (setq olayer (vla-get-layer ron))
         (command "-layer" "set" olayer "" )
         (setq p1 (pline-centroid item))
         (vl-cmdf "_.-boundary" "_A" "_O" "polyline" "_I" "_N" ""  p1 "")
        (vl-cmdf "_unisolateobjects" "")
        (vla-delete ron)
         (command "_change" (entlast) "" "p" "la" "layer1" "")
        (setq ctr (1+ ctr))
   )
)

我正试图用上述方法重新绘制所有多段线。为了避免创建错误的多段线，我使用isolateobjects的功能来关闭其他对象。然后，它将基于保留的多段线创建新的多段线。但我发现当我使用这种方法应用于绘图时，里面有很多物体，速度很慢。此外，某些多段线无法使用此方法创建。还有其他好的方法来创建多段线吗？

非常感谢。

MSasu · 发表于 2022-7-6 09:35:38

请看一下ENTMAKE函数作为替代解决方案。

或者，可以尝试禁用OSMODE系统变量，而不是隔离实体-不要忘记稍后恢复它。

copy


(setq PrevOsnapMode (getvar "OSMODE"))   ;retain current state
(setvar "OSMODE" 0)                      ;disable auto OSNAP
[color=blue]; your procesing here[/color]
(setvar "OSMODE" PrevOsnapMode)          ;restore previous state

Regrads，
米尔恰

ahyin · 发表于 2022-7-6 09:36:50

谢谢你的快速回复！你能教我怎么写这个测试条件吗。

copy


(defun c:creg ()
(setq a (car (entsel)))  
(command "region" a "")
;[color=blue]if convert to region is failed then explode it and then rejoin by pedit
[/color] (while 
(setq ent (vlax-ename->vla-object a)) 
  (vla-explode ent)
    (command "_.pedit" "_m" 
 (ssget "_p") "" "_y" "_j" 0.0 "")
 
     )
)

MSasu · 发表于 2022-7-6 09:49:45

将图形中最后一个可用图元（尝试创建区域之前）与发出区域命令后的最后一个图元进行比较如何？如果向区域的转换成功，这些应该是不同的。

copy


(setq LastItem (entlast))   ;retain last item in drawing
[color=green](setq a (car (entsel)))  [/color]
[color=green](command "_REGION" a "")[/color]    ;attempt to create a region
(setq DrawItem (entlast))   ;list again last item in drawing
(if (not (equal LastItem DrawItem))   ;compare above entities
(prompt "\The region was created!")
(prompt "\The region wasn't created!")
)

当做
米尔恰

ahyin · 发表于 2022-7-6 10:04:12

谢谢你Mircea，我正在尝试使用这种方法创建区域，但没有成功。

copy

(defun c:creg ()
 
(setq a (car (entsel)))  
(setq lastitem (entlast ))
(command "region" a "")
(setq drawitem (entlast))
(if (not (equal lastitem drawitem))
  (prompt "The region was created")
  (progn
  (setq ent (vlax-ename->vla-object a)) 
    (vla-explode ent)
     (command "_.pedit" "_m" 
  (ssget "_p") "" "_y" "_j" 0.0 "")
  )
  (command "region" (entlast))
   )
 )

MSasu · 发表于 2022-7-6 10:13:43

尝试通过ENTNEXT解析新创建的实体（来自爆炸命令），该实体从爆炸前绘制的最后一个实体开始；使用SSADD创建新的选择集。

当做
米尔恰

ahyin · 发表于 2022-7-6 10:16:20

再次感谢！我会按照这个方向完成这个项目。

[编程交流] 重画多段线

发表回复

精选推荐