二维多段线换向（反向）程序

newer · 发表于 2016-3-30 09:21:04

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;二维多段线换向（反向）程序 1.0;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;
;; 1、本程序的功能为:二维多段线换向（反向），只针对带有高程的二维多段线。 ;;
;; ;;
;; 2、程序主命令为"plr",在命令行中输入"plr"按提示使用即可。 ;;
;; ;;
;; 3、程序要求必须全部为带高程的二维多段线，否则程序会出错!!!。 ;;
;; ;;
;; 4、如果选择的不全是带高程的二维多段线，请用pl32程序把三维多段线转换为带高程 ;;
;; 的二维多段线，其它情况请自己想办法。 ;;
;; ;;
;; 5、用户使用此程序前请做好备份! ;;
;; 2011.8.10 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;
(defun c:plr() ;程序名为plr，把三维多段线转换为带高程的二维多段线，
;
(VL-LOAD-COM) ;必要的加载函数
;
(setq AcadObject (vlax-get-acad-object))
(setq AcadDocument (vla-get-ActiveDocument Acadobject))
(setq mSpace (vla-get-ModelSpace Acaddocument)) ;此三行的作用是可以修改CAD文件了。
(prompt "\n <<请框选带高程的二维多段线>>")
(setq ss (ssget '((0 . "POLYLINE")))) ;取得选择集。
(setq n 0 k 0) ;选择集的起始值n＝0，完成更改的多段线数k＝0。
(repeat (sslength ss) ;计算选择集的对象个数。
(setq en (ssname ss n)) ;依据索引值取出选择集中的图元名。
(reversepl en) ;调用对二维多段线进行换向的子函数，此函数为执行函数。
(setq k (1+ k)) ;换向完成的线数，完成一个加一。
(setq n (1+ n)) ;
)
(princ (strcat "\n 共有< " (itoa k) " >条二维多段线完成换向。" ))
(prin1)
)
(defun reversepl (ename) ;考虑完全的标注高程文字的子函数。
(setq obj (vlax-ename->vla-object ename)) ;把ename转换为vlax对象。
(setq varnil1 (vlax-make-variant -1 11)) ;新建立一个vlax下的布尔型变量，11表示布尔型变量，-1表示为真。
(if (= (vlax-variant-value varnil1) (vla-get-closed obj)) ;如果原来obj三维多段线是闭合的，则执行下面一句，目的是为了对圆形多段线标注。
(progn
(vla-put-closed obj 0) ;使二维多段线先不闭合。
(reversepl_exe obj) ;调子函数。
(vla-put-closed polylineobj -1) ;使二维多段线再闭合。
(vlax-release-object polylineobj) ;释放变量值。
)
(progn
(reversepl_exe obj) ;调子函数。
(vlax-release-object polylineobj) ;释放变量值。
)
)
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;二维多段线换向（反向）程序 1.0;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;                                                                                     ;; 
;;   1、本程序的功能为:二维多段线换向（反向），只针对带有高程的二维多段线。            ;; 
;;                                                                                     ;; 
;;   2、程序主命令为"plr",在命令行中输入"plr"按提示使用即可。                          ;; 
;;                                                                                     ;; 
;;   3、程序要求必须全部为带高程的二维多段线，否则程序会出错!!!。                      ;; 
;;                                                                                     ;; 
;;   4、如果选择的不全是带高程的二维多段线，请用pl32程序把三维多段线转换为带高程       ;; 
;;      的二维多段线，其它情况请自己想办法。                                           ;; 
;;                                                                                     ;; 
;;   5、用户使用此程序前请做好备份!                                                    ;; 
;;                                                                      2011.8.10      ;; 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
; 
; 
; 
(defun c:plr()                             ;程序名为plr，把三维多段线转换为带高程的二维多段线， 
                                           ; 
  (VL-LOAD-COM)                            ;必要的加载函数 
                                           ;         
  (setq AcadObject (vlax-get-acad-object)) 
  (setq AcadDocument (vla-get-ActiveDocument Acadobject)) 
  (setq mSpace (vla-get-ModelSpace Acaddocument))          ;此三行的作用是可以修改CAD文件了。 
 
 
  (prompt "\n <<请框选带高程的二维多段线>>") 
  (setq ss (ssget '((0 . "POLYLINE"))))           ;取得选择集。 
  (setq n 0 k 0)              ;选择集的起始值n＝0，完成更改的多段线数k＝0。 
  (repeat (sslength ss)       ;计算选择集的对象个数。 
    (setq en (ssname ss n))   ;依据索引值取出选择集中的图元名。 
          (reversepl en)      ;调用对二维多段线进行换向的子函数，此函数为执行函数。 
          (setq k (1+ k))     ;换向完成的线数，完成一个加一。 
          (setq n (1+ n))     ; 
  ) 
 (princ (strcat "\n 共有< " (itoa k) " >条二维多段线完成换向。" )) 
 (prin1) 
) 
  (defun reversepl (ename)                                             ;考虑完全的标注高程文字的子函数。 
      (setq obj (vlax-ename->vla-object ename))                        ;把ename转换为vlax对象。 
      (setq varnil1 (vlax-make-variant -1  11))                        ;新建立一个vlax下的布尔型变量，11表示布尔型变量，-1表示为真。 
         (if (= (vlax-variant-value varnil1)  (vla-get-closed obj))    ;如果原来obj三维多段线是闭合的，则执行下面一句，目的是为了对圆形多段线标注。 
             (progn 
                   (vla-put-closed obj 0)                              ;使二维多段线先不闭合。             
                   (reversepl_exe obj)                                 ;调子函数。 
                   (vla-put-closed polylineobj -1)                     ;使二维多段线再闭合。 
                   (vlax-release-object polylineobj)                   ;释放变量值。 
             ) 
             (progn 
                   (reversepl_exe obj)                                 ;调子函数。 
                   (vlax-release-object polylineobj)                   ;释放变量值。 
             ) 
         ) 
   )

;reversepl_exe 对二维多段线进行换向的子函数。

游客，如果您要查看本帖隐藏内容请回复

ll_j · 发表于 2016-3-30 09:34:42

为什么不用acad自己的命令？
傲游截图20160330093058.png

newer · 发表于 2016-3-30 10:19:30

ll_j 发表于 2016-3-30 09:34
为什么不用acad自己的命令？

reverse命令是从哪个CAD版本开始提供的？

ll_j · 发表于 2016-3-30 11:02:24

newer 发表于 2016-3-30 10:19
reverse命令是从哪个CAD版本开始提供的？

reverse是新命令，刚才找几个人试了一下，2012才开始有，不过也好多年了。
convertpoly是很早版本就有的命令，应该是和轻多段线同时就有的，只是那时候是隐含命令，帮助文件查不到。

HLCAD · 发表于 2016-3-30 11:06:57

感谢版主为我们提供学习资料

yoyoho · 发表于 2016-3-30 14:36:36

感谢 newer 版主分享程序!!!!!

/db_自贡黄明儒_ · 发表于 2016-3-30 18:45:57

好像比我写的那个简洁

lucas3 · 发表于 2016-3-30 19:17:33

换向后能有什么作用呢？

杜流浪人 · 发表于 2016-4-5 19:18:13

学习了谢谢楼主了

wangxf888 · 发表于 2016-5-23 15:08:15

reverse 还真没用过这个命令

start4444 · 发表于 2016-8-17 17:50:15

:lol:lol:lol;P

279491611 · 发表于 2016-8-19 09:56:48

本帖最后由 279491611 于 2016-8-19 10:03 编辑

谢谢分享。要是能扩展一下（reverse）就更完美了。比如有时候用到，根据X或Y或Z坐标判断反向。比如统一为Z坐标小的为起点。当然主要是能批量操作3维直线，或3维多段线。

llsheng_73 · 发表于 2016-8-19 11:12:37

强制灌水。。。。

llsheng_73 · 发表于 2016-8-19 11:32:43

换向后丢失bluge,丢失起止宽度。。。

qq1254582201 · 发表于 2016-8-19 22:34:35

有时候cad自带的不能转向，不知道这个怎么样呢

账号		自动登录	找回密码
密码			立即注册

[每日一码] 二维多段线换向（反向）程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

点评