[编程申请]：pl线以各自质心为基点转90度

lengliqun

求lsp程序，图中有多个封闭的pl线，以各自质心为基点转90度(能多选)。谢谢。

zxq0220

[php]
;封闭PL线转90度 晓东 zxq0220 2008.3.13
(DEFUN C:TT ()
(SETVAR "CMDECHO" 0)
(IF (SETQ SS (SSGET '((0 . "*POLYLINE") (70 . 1)))) (PROGN
  (SETQ I -1)
  (REPEAT (SSLENGTH SS)
   (SETQ EN (SSNAME SS (SETQ I (1+ I))))
   (COMMAND ".UNDO" "BE")
   (COMMAND "REGION" EN "")
   (COMMAND "MASSPROP" "L" "" "Y" "TTT.MPR")
   (WHILE (NOT (ZEROP (GETVAR "CMDACTIVE"))) (COMMAND "Y"))
   (COMMAND ".UNDO" "E")
   (COMMAND "_U")
   (SETQ F (OPEN "TTT.MPR" "r"))
   (REPEAT 7 (READ-LINE F))
   (SETQ X (LAST (READ (STRCAT "(" (READ-LINE F) ")")))
         Y (LAST (READ (STRCAT "(" (READ-LINE F) ")")))
                 PTC (LIST X Y))
   (CLOSE F)
   (COMMAND "ROTATE" EN "" PTC "90")
  )
))
(SETVAR "CMDECHO" 1)
(PRINC)
)
[/php]

lengliqun

cad2004测试可用，谢谢zxq0220大侠。