[求助]：如何用lisp让直线和圆相关联

LUCAS · 发表于 2004-7-16 17:16:18

第二次打开图纸後,你要再次加載程序!

;;序號球加反應器早已放出(在”某”個網站---不在明經&也不在曉東)
;;運氣好就會找到(開放原碼)

梦断江南 · 发表于 2004-7-18 13:10:10

lucas，同时拉伸序号球和直线的时候，会暂时分开（线球分离），要单独移动一下序号球才恢复正常。

LUCAS · 发表于 2004-7-19 09:56:22

看來反應器比圖形資料庫更新還要快

aeo · 发表于 2004-7-20 01:58:42

最初由 LUCAS 发布
[B]看來反應器比圖形資料庫更新還要快 [/B]

不是因为快吧。

不管什么命令,更新实体总是一个个来的，arx写也一样
stretch时，肯定是先更新了所画的圆,(这时反映器激活，line就变化了),再轮到stretch这line,由于已经变化过了，再变化了一下就不对了.

因为框选的时候，实体在选集里的先后，和你框的方法有关系
所以有时对有时不对。

应该倒过来再写一次.

eachy · 发表于 2004-7-20 07:25:27

最初由 LUCAS 发布
[B]看來反應器比圖形資料庫更新還要快 [/B]

CAD的Lisp Sample 中有一个三球联动的例子可以参考下

LUCAS · 发表于 2004-7-20 08:12:05

;;追查發現L1在反應器中的數據是未移動前的
;;看來反應器比圖形資料庫更新還要快
;;(PS:發現與選物順序有關,帶反應器物件要後選才沒有這現象)
(defun C:LINE_REACTOR (/ HOLDECHO L1 C1)
(vl-load-com)
(setq HOLDECHO (getvar "CMDECHO"))
(setvar "CMDECHO" 1)
(command "_.LINE" PAUSE PAUSE "")
(setq L1 (entlast))
(command "_.CIRCLE" (getvar "LASTPOINT") PAUSE)
(setq C1 (vlax-ename->vla-object (entlast)))
(print (entget L1))
(print (vlax-dump-object C1))
(setvar "CMDECHO" 0)
(command "_.TRIM"
(entlast)
""
(list L1 (getvar "LASTPOINT"))
""
)
(setq L1 (cdr (assoc 5 (entget L1))))
(vlr-pers
(vlr-object-reactor
(list C1)
L1
'((:vlr-modified . LI))
)
)
(setvar "CMDECHO" HOLDECHO)
(princ)
)
(prompt "\nType LINE_REACTOR")
(defun LI (NOTIFIER-OBJECT REACTOR-OBJECT
PARAMETER-LIST / PTC
PTR L1 SPT ANG
DIST
)
(vl-load-com)
(if (not (vlax-erased-p NOTIFIER-OBJECT))
(progn
(setq
PTC (vlax-safearray->list
(vlax-variant-value (vla-get-center NOTIFIER-OBJECT))
)
)
(setq PTR (vla-get-radius NOTIFIER-OBJECT))
(if (entget (setq L1 (handent (vlr-data REACTOR-OBJECT))))
(progn
(setq L1 (vlax-ename->vla-object L1))
(print (vlax-dump-object L1))
(setq
DIST (- (distance (setq SPT (vlax-safearray->list
(vlax-variant-value
(vla-get-startpoint L1)
)
)
)
PTC
)
PTR
)
)
(setq ANG (angle SPT PTC))
(vla-put-endpoint L1 (vlax-3d-point (polar SPT ANG DIST)))
(print (vlax-dump-object L1))
)
)
)
)
(princ)
)
;|
指令: LINE_REACTOR
_.LINE 指定第一點: 0,0
指定下一點或 [復原(U)]: 100,100
指定下一點或 [復原(U)]:
指令: _.CIRCLE 指定圓的中心點或 [三點(3P)/兩點(2P)/相切、相切、半徑(T)]:
指定圓的半徑或 [直徑(D)] <30.0000>: 20
指令:
((-1 . <圖元名稱: 7ef8a408>) (0 . "LINE") (330 . <圖元名稱: 7ef88cf8>) (5 .
"28E1") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbLine") (10 0.0 0.0 0.0) (11 100.0 100.0 0.0) (210 0.0 0.0 1.0))
; IAcadCircle: AutoCAD Circle Interface
;性質值:
; Application (RO) = #<VLA-OBJECT IAcadApplication 00b60584>
; Area = 1256.64
; Center = (100.0 100.0 0.0)
; Circumference = 125.664
; Diameter = 40.0
; Document (RO) = #<VLA-OBJECT IAcadDocument 0111e7c0>
; Handle (RO) = "28E2"
; HasExtensionDictionary (RO) = 0
; Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 03672714>
; Layer = "0"
; Linetype = "ByLayer"
; LinetypeScale = 1.0
; Lineweight = -1
; Normal = (0.0 0.0 1.0)
; ObjectID (RO) = 2130224144
; ObjectName (RO) = "AcDbCircle"
; OwnerID (RO) = 2130218232
; PlotStyleName = "ByLayer"
; Radius = 20.0
; Thickness = 0.0
; TrueColor = #<VLA-OBJECT IAcadAcCmColor 036742e0>
; Visible = -1
T
指令:
指令:
指令: _move
選取物件: 指定對角點: 2 找到
選取物件:
指定基準點或位移: 0,0
指定位移的第二點或 <使用第一點作為位移>: 100,100
; IAcadLine: AutoCAD Line Interface
;性質值:
; Angle (RO) = 0.785398
; Application (RO) = #<VLA-OBJECT IAcadApplication 00b60584>
; Delta (RO) = (85.8579 85.8579 0.0)
; Document (RO) = #<VLA-OBJECT IAcadDocument 0111e7c0>
; EndPoint = (85.8579 85.8579 0.0)
; Handle (RO) = "28E1"
; HasExtensionDictionary (RO) = 0
; Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 036744a4>
; Layer = "0"
; Length (RO) = 121.421
; Linetype = "ByLayer"
; LinetypeScale = 1.0
; Lineweight = -1
; Normal = (0.0 0.0 1.0)
; ObjectID (RO) = 2130224136
; ObjectName (RO) = "AcDbLine"
; OwnerID (RO) = 2130218232
; PlotStyleName = "ByLayer"
; StartPoint = (0.0 0.0 0.0)
; Thickness = 0.0
; TrueColor = #<VLA-OBJECT IAcadAcCmColor 03671860>
; Visible = -1
T
; IAcadLine: AutoCAD Line Interface
;性質值:
; Angle (RO) = 0.785398
; Application (RO) = #<VLA-OBJECT IAcadApplication 00b60584>
; Delta (RO) = (185.858 185.858 0.0)
; Document (RO) = #<VLA-OBJECT IAcadDocument 0111e7c0>
; EndPoint = (185.858 185.858 0.0)
; Handle (RO) = "28E1"
; HasExtensionDictionary (RO) = 0
; Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 03677044>
; Layer = "0"
; Length (RO) = 262.843
; Linetype = "ByLayer"
; LinetypeScale = 1.0
; Lineweight = -1
; Normal = (0.0 0.0 1.0)
; ObjectID (RO) = 2130224136
; ObjectName (RO) = "AcDbLine"
; OwnerID (RO) = 2130218232
; PlotStyleName = "ByLayer"
; StartPoint = (0.0 0.0 0.0)
; Thickness = 0.0
; TrueColor = #<VLA-OBJECT IAcadAcCmColor 036717d0>
; Visible = -1
T
|;

;;追查發現L1在反應器中的數據是未移動前的 
;;看來反應器比圖形資料庫更新還要快 
;;(PS:發現與選物順序有關,帶反應器物件要後選才沒有這現象) 
(defun C:LINE_REACTOR (/ HOLDECHO L1 C1) 
  (vl-load-com) 
  (setq HOLDECHO (getvar "CMDECHO")) 
  (setvar "CMDECHO" 1) 
  (command "_.LINE" PAUSE PAUSE "") 
  (setq L1 (entlast)) 
  (command "_.CIRCLE" (getvar "LASTPOINT") PAUSE) 
  (setq C1 (vlax-ename->vla-object (entlast))) 
  (print (entget L1)) 
  (print (vlax-dump-object C1)) 
  (setvar "CMDECHO" 0) 
  (command "_.TRIM" 
           (entlast) 
           "" 
           (list L1 (getvar "LASTPOINT")) 
           "" 
  ) 
  (setq L1 (cdr (assoc 5 (entget L1)))) 
  (vlr-pers 
    (vlr-object-reactor 
      (list C1) 
      L1 
      '((:vlr-modified . LI)) 
    ) 
  ) 
  (setvar "CMDECHO" HOLDECHO) 
  (princ) 
) 
(prompt "\nType LINE_REACTOR") 
 
(defun LI (NOTIFIER-OBJECT             REACTOR-OBJECT 
           PARAMETER-LIST             /                  PTC 
           PTR                L1             SPT          ANG 
           DIST 
          ) 
  (vl-load-com) 
  (if (not (vlax-erased-p NOTIFIER-OBJECT)) 
    (progn 
      (setq 
        PTC (vlax-safearray->list 
              (vlax-variant-value (vla-get-center NOTIFIER-OBJECT)) 
            ) 
      ) 
      (setq PTR (vla-get-radius NOTIFIER-OBJECT)) 
      (if (entget (setq L1 (handent (vlr-data REACTOR-OBJECT)))) 
        (progn 
          (setq L1 (vlax-ename->vla-object L1)) 
          (print (vlax-dump-object L1)) 
 
          (setq 
            DIST (- (distance (setq SPT        (vlax-safearray->list 
                                          (vlax-variant-value 
                                            (vla-get-startpoint L1) 
                                          ) 
                                        ) 
                              ) 
                              PTC 
                    ) 
                    PTR 
                 ) 
          ) 
          (setq ANG (angle SPT PTC)) 
          (vla-put-endpoint L1 (vlax-3d-point (polar SPT ANG DIST))) 
          (print (vlax-dump-object L1)) 
        ) 
      ) 
    ) 
  ) 
  (princ) 
) 
 
;| 
 
指令: LINE_REACTOR 
_.LINE 指定第一點: 0,0 
 
指定下一點或 [復原(U)]: 100,100 
 
指定下一點或 [復原(U)]: 
指令: _.CIRCLE 指定圓的中心點或 [三點(3P)/兩點(2P)/相切、相切、半徑(T)]: 
指定圓的半徑或 [直徑(D)] <30.0000>: 20 
 
指令: 
((-1 . <圖元名稱: 7ef8a408>) (0 . "LINE") (330 . <圖元名稱: 7ef88cf8>) (5 . 
"28E1") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . 
"AcDbLine") (10 0.0 0.0 0.0) (11 100.0 100.0 0.0) (210 0.0 0.0 1.0)) 
; IAcadCircle: AutoCAD Circle Interface 
;性質值: 
;   Application (RO) = #<VLA-OBJECT IAcadApplication 00b60584> 
;   Area = 1256.64 
;   Center = (100.0 100.0 0.0) 
;   Circumference = 125.664 
;   Diameter = 40.0 
;   Document (RO) = #<VLA-OBJECT IAcadDocument 0111e7c0> 
;   Handle (RO) = "28E2" 
;   HasExtensionDictionary (RO) = 0 
;   Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 03672714> 
;   Layer = "0" 
;   Linetype = "ByLayer" 
;   LinetypeScale = 1.0 
;   Lineweight = -1 
;   Normal = (0.0 0.0 1.0) 
;   ObjectID (RO) = 2130224144 
;   ObjectName (RO) = "AcDbCircle" 
;   OwnerID (RO) = 2130218232 
;   PlotStyleName = "ByLayer" 
;   Radius = 20.0 
;   Thickness = 0.0 
;   TrueColor = #<VLA-OBJECT IAcadAcCmColor 036742e0> 
;   Visible = -1 
 
T 
 
指令: 
指令: 
指令: _move 
選取物件: 指定對角點: 2 找到 
 
選取物件: 
指定基準點或位移: 0,0 
指定位移的第二點或 <使用第一點作為位移>: 100,100 
; IAcadLine: AutoCAD Line Interface 
;性質值: 
;   Angle (RO) = 0.785398 
;   Application (RO) = #<VLA-OBJECT IAcadApplication 00b60584> 
;   Delta (RO) = (85.8579 85.8579 0.0) 
;   Document (RO) = #<VLA-OBJECT IAcadDocument 0111e7c0> 
;   EndPoint = (85.8579 85.8579 0.0) 
;   Handle (RO) = "28E1" 
;   HasExtensionDictionary (RO) = 0 
;   Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 036744a4> 
;   Layer = "0" 
;   Length (RO) = 121.421 
;   Linetype = "ByLayer" 
;   LinetypeScale = 1.0 
;   Lineweight = -1 
;   Normal = (0.0 0.0 1.0) 
;   ObjectID (RO) = 2130224136 
;   ObjectName (RO) = "AcDbLine" 
;   OwnerID (RO) = 2130218232 
;   PlotStyleName = "ByLayer" 
;   StartPoint = (0.0 0.0 0.0) 
;   Thickness = 0.0 
;   TrueColor = #<VLA-OBJECT IAcadAcCmColor 03671860> 
;   Visible = -1 
 
T 
; IAcadLine: AutoCAD Line Interface 
;性質值: 
;   Angle (RO) = 0.785398 
;   Application (RO) = #<VLA-OBJECT IAcadApplication 00b60584> 
;   Delta (RO) = (185.858 185.858 0.0) 
;   Document (RO) = #<VLA-OBJECT IAcadDocument 0111e7c0> 
;   EndPoint = (185.858 185.858 0.0) 
;   Handle (RO) = "28E1" 
;   HasExtensionDictionary (RO) = 0 
;   Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 03677044> 
;   Layer = "0" 
;   Length (RO) = 262.843 
;   Linetype = "ByLayer" 
;   LinetypeScale = 1.0 
;   Lineweight = -1 
;   Normal = (0.0 0.0 1.0) 
;   ObjectID (RO) = 2130224136 
;   ObjectName (RO) = "AcDbLine" 
;   OwnerID (RO) = 2130218232 
;   PlotStyleName = "ByLayer" 
;   StartPoint = (0.0 0.0 0.0) 
;   Thickness = 0.0 
;   TrueColor = #<VLA-OBJECT IAcadAcCmColor 036717d0> 
;   Visible = -1 
 
T 
|;

aeo · 发表于 2004-7-21 21:03:24

就是我上面说的意思

反映器它不管你在不在命令当中,照改不误.

lsjjm · 发表于 2004-7-22 04:57:09

1楼原问的题目是" 如何用lisp让直线和圆相关联" 自然可以使用反映器. 但1楼的最终目的是
"....."如何让直线总是通过圆心呢？" 这样, 简单的LISP程序即可:
DragNumBall
http://www.xdcad.net/forum/showthread.php?s=&threadid=215855

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

[求助] [求助]：如何用lisp让直线和圆相关联

浏览过的版块