[求助]：延长单段端点在圆周上的PL端点到圆心？

nuance · 发表于 2007-6-15 14:16:43

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

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

×

单段PL端点在圆周，且延长线过圆心。
1怎样选择端点在圆周上的单段PL?用ssget c?有没有更好方法？
2怎样判断延长线过圆心？
3单段多义线组码中所有端点都是(10 x y )，怎样判断哪个是哪个端点？
我所有PL都是单段的，所以只考虑单段就行。

carrot1983 · 发表于 2007-6-15 14:39:00

不懂，楼主问这么些问题的目的是为了？

zxq0220 · 发表于 2007-6-15 21:31:43

这样试试看
[php]
(DEFUN C:TOCENTER ()
(PRINC "\nSelect a circle 选择一个圆 :")
(IF (SETQ SS (SSGET '((0 . "CIRCLE")))) (PROGN
(SETQ PC (CDR (ASSOC 10 (ENTGET (SSNAME SS 0)))))
(PRINC "\nSelect a Polyline 选择复线 :")
(IF (SETQ SS1 (SSGET '((0 . "*POLYLINE")))) (PROGN
  (SETQ ENT1 (ENTGET (SSNAME SS1 0))
ENM (CDR (ASSOC 0 ENT1)))
  (COND
((= ENM "LWPOLYLINE")
(SETQ PT1 (CDR (ASSOC 10 ENT1))
      PT2 (CDR (ASSOC 10 (REVERSE ENT1))))
)
(T
(SETQ SN1 (ENTNEXT (CDR (ASSOC -1 ENT1)))
      LB (ENTGET SN1)       LM (CDR (ASSOC 0 LB))
      PT1 (CDR (ASSOC 10 LB)))
(WHILE (/= LM "SEQEND")
   (SETQ SN1 (ENTNEXT (CDR (ASSOC -1 LB)))  LC (ENTGET SN1)
         LM (CDR (ASSOC 0 LC))       PT2 (CDR (ASSOC 10 LC)))
)
)
  )
  (SETQ PT (IF (< (DISTANCE PT1 PC) (DISTANCE PT2 PC)) PT1 PT2))
  (COMMAND "STRETCH" "C" PT PT "" PT PC)
))
))
(PRINC)
)
[/php]

nuance · 发表于 2007-6-17 14:32:05

楼上：
每次要选若干圆，和每个圆相交的所有单段多义线都要延长至圆心。

zxq0220 · 发表于 2007-6-17 20:46:28

条件不一次说明白。下面的程序试试看：
[php]
(DEFUN C:TOCENTER ()
(PRINC "\nSelect a circle 选择圆 :")
(IF (SETQ SS (SSGET '((0 . "CIRCLE")))) (PROGN
(SETQ I -1)
(REPEAT (SSLENGTH SS)
  (SETQ EN (SSNAME SS (SETQ I (1+ I)))
ENT (ENTGET EN)
PC (CDR (ASSOC 10 ENT))
R (CDR (ASSOC 40 ENT))
P1 (POLAR (POLAR PC 0 R) (/ PI 2) R)
P2 (POLAR (POLAR PC PI R) (/ PI -2) R))
  (IF (> (SSLENGTH (SETQ SS1 (SSGET "C" P1 P2))) 2) (PROGN
(SETQ SS1 (SSDEL EN SS1) J -1)
(REPEAT (SSLENGTH SS1)
(SETQ ENT1 (ENTGET (SSNAME SS1 (SETQ J (1+ J))))
   ENM (CDR (ASSOC 0 ENT1)))
(COND
   ((= ENM "LWPOLYLINE")
   (SETQ PT1 (CDR (ASSOC 10 ENT1))
      PT2 (CDR (ASSOC 10 (REVERSE ENT1))))
   )
   (T
   (SETQ SN1 (ENTNEXT (CDR (ASSOC -1 ENT1)))
      LB (ENTGET SN1)       LM (CDR (ASSOC 0 LB))
      PT1 (CDR (ASSOC 10 LB)))
   (WHILE (/= LM "SEQEND")
   (SETQ SN1 (ENTNEXT (CDR (ASSOC -1 LB)))  LC (ENTGET SN1)
      LM (CDR (ASSOC 0 LC))       PT2 (CDR (ASSOC 10 LC)))
   )
   )
)
(SETQ PT (IF (< (DISTANCE PT1 PC) (DISTANCE PT2 PC)) PT1 PT2))
(COMMAND "STRETCH" "C" PT PT "" PT PC)
)
  ))
)
))
(PRINC)
)
[/php]

carrot1983 · 发表于 2007-6-18 08:51:32

怎么用啊。。。呵呵，用不了，选完了圆后回车后什么事情都没发生。。。呵！！

nuance · 发表于 2007-6-18 14:10:56

lwpolyline更新某一端点坐标该怎样办？用entmod的方法

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

[求助] [求助]：延长单段端点在圆周上的PL端点到圆心？

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

相关帖子