[求助]：如何将选择集的图元变成多义线啊？

superxzg · 发表于 2006-10-31 10:56:17

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

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

×

如题，如果选择集中有两个圆，两个矩形，如何将他们转化成多义线？

橄榄滋味 · 发表于 2006-10-31 14:22:53

将圆变为多义线是提取圆的圆心和半径，然后用donut画内外半径相同的圆环即可。矩形本身就是多义线。如果是由直线组成的矩形，可以提取端点创建多义线，或者用PEDIT命令

superxzg · 发表于 2006-10-31 19:50:52

多谢楼上,能否说一下如何用autolisp实现直线组成的矩形转化成多义线?

zhynt · 发表于 2006-11-1 01:51:48

贴一个很久以前写的改线宽的程序，里面用到了“pedit”命令（没有加入圆）

;;;
;;;  连续修改多义线;直线;圆弧线宽
;;;
(setq w2 45)
(DEFUN C:LEA (/ E ENTCN I X W1 A B1 E1 A1)
   (prompt "\n 选择多义线直线或圆弧:")
   (SETQ E (SSGET))
   (SETQ ENTCN (SSLENGTH E))
   (SETQ I 0)
   (INITGET I "W L A")
   (SETQ X (GETKWORD "W多义线/L直线/A圆弧:"))
   (princ "\n输入线宽<")
   (princ w2)
   (SETQ W1 (GETDIST ">:"))
   (if (/= W1 nil)(setq w2 W1)(SETQ W1 w2))
   (setvar "cmdecho" 0)
   (WHILE (< I ENTCN)
            (SETQ A (SSNAME E I))
            (SETQ B1 (ENTGET A))
            (SETQ E1 (ASSOC 0 B1))
            (SETQ A1 (ASSOC -1 B1))
            (SETQ A1 (CDR A1))
            (COND ((AND (= X "L")(= "LINE" (CDR E1)))
                        (COMMAND "PEDIT" A1 "Y" "W" W1 "X"))
                  ((AND (= X "W")(= "LWPOLYLINE" (CDR E1)))
                        (COMMAND "PEDIT" A1 "W" W1 "X"))
                  ((AND (= X "A")(= "ARC" (CDR E1)))
                        (COMMAND "PEDIT" A1 "Y" "W" W1 "X"))
            )
            (SETQ I (+ I 1))
   )
   (setvar "cmdecho" 1)
(PRINC)

superxzg · 发表于 2006-11-1 08:17:06

很有用，多谢楼上，其他的我自己可以搞掂！

橄榄滋味 · 发表于 2006-11-1 08:39:45

(command "pedit" "m" (ssget) "" "y" "j" 0.1 "")

superxzg · 发表于 2006-11-1 15:41:17

楼上的方法很简洁，也很有效，多谢！

kohi · 发表于 2006-11-4 03:34:29

圆转换成多义线可以先将圆变为1：1的椭圆，再将椭圆变多义线。

xshrimp · 发表于 2006-11-4 23:08:52

[php]; 圆使用后可以用pedit 加粗 ;add
(Defun C:CW (/ en el cp cd cw cc)

   (While (Progn (InitGet 1 " ")
                  (SetQ en (EntSel "\n指定要描深的圆: "))
                  (Not (And en
                           (= "CIRCLE" (Cdr (Assoc 0 (EntGet (Car en)))))
                        )
                  )
            )
            (If en
               (Alert "所指实体不是圆 ...")
               (Alert "没找到 ...")
            )
   )
   (SetQ el (EntGet (Car en))
         cp (Cdr (Assoc 10 el))
         cd (* 2 (Cdr (Assoc 40 el)))
         cc (Cdr (Assoc 62 el))
         cw (GetVar "plinewid")
   )
   (PrinC cw)
   (If (> cw cd)
         (Progn (Alert "所指圆半径太小, 无法描深.")
               (Abcdefg)
         )
   )
   (SetVar "cecolor" (If cc (IToA cc) "BYLAYER"))
   (EntDel (Car en))
   (setq ucsp (Getvar "ucsorg"))
   (Command "donut" (- cd cw) (+ cd cw)
         (list (- (Car cp) (Car ucsp))
               (- (Cadr cp) (cadr ucsp))
               (- (Caddr cp) (caddr ucsp))
         )
               ""
   )
      (PrinC)
)[/php]

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

[求助] [求助]：如何将选择集的图元变成多义线啊？

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

相关帖子