AUTOLISP 捕捉焦点函数osnap 难点求助

最后的さ回忆

我在用到Autolisp osnap函数时,遇到了瓶颈区.
捕捉交点的图形是任意封闭图形 和他的旋转中心作射线的交点,有很多个,
捕捉焦点怎莫能一一捕捉到呢?还得不捕捉重复的, 我的目的是捕捉一个焦点画一个焦点.
请求群里高手帮助!

caddog

配一张图直观地表述下吧。

qq229918602

不是太明白楼主的意思。。

最后的さ回忆

caddog 发表于 2012-5-27 15:54
配一张图直观地表述下吧。

我的图形是用样条曲线随机画得,但又有一定的约束范围.在旋转中心阵列,任意阵列出N条射线.射线与画的图形会有N个焦点,我想画出每个焦点.但是因为点之间的距离不定性,还有数目不定性,编程很不会!做出阵列的编程就卡住了?
(defun c:anglelin ()

  (graphscr)
  (setvar "blipmode" 0)
  (setq p0 '(900 200))
  (setq p1 '(1080 200))
  (command "line" p0 p1 "")
  (setq s1 (ssget "l"))
  (setq a1 (getint "\nEnter decima angle from deyboard:"))
  (setq n (/ 360 a1))
  (command "-array" s1 "" "p" p0  n 360 "y")
    (princ)

)

zhang8755

射线的数量有吧！建立射线的选择集，用vla-intersectwith获得交点！

最后的さ回忆

zhang8755 发表于 2012-5-29 09:20
射线的数量有吧！建立射线的选择集，用vla-intersectwith获得交点！

(defun c:anglelin ()

  (graphscr)
  (setvar "blipmode" 0)
  (setq p0 '(900 200))
  (setq p1 '(1080 200))
  (command "line" p0 p1 "")
  (setq s1 (ssget "l"))
  (setq a1 (getint "\nEnter decima angle from deyboard:"))
  (setq n (/ 360 a1))
  (command "-array" s1 "" "p" p0  n 360 "y")
  (setq p2 (osnap p1 "int"))

  (command "point" p2)
  
  (vl-load-com )
  
  (setq ss (car (entsel)))
   
   (vlax-enam ->vla-object ss)
   (setq ee (car (entsel)))
   (vlax-ename->vla-object ee)

(vlax-invoke-method ss  'intersectwith  ee 3.0)
)
我用这段程序时它说我(vlax-invoke-method ss  'intersectwith  ee 3.0)
参数类型不对,我不知道哪里有问题,还请高人指导

最后的さ回忆

zhang8755 发表于 2012-5-29 09:20
射线的数量有吧！建立射线的选择集，用vla-intersectwith获得交点！

   
它说我 参数类型错误: VLA-OBJECT <图元名: 7efb4448>

caddog

关于intersectwith的使用，我是这样写的：
;;求obj-lin与另一图元（多段线）的实交点
  (setq obj-lin (vlax-ename->vla-object obj-lin)
          obj2 (vlax-ename->vla-objec obj2))
;;图元要先转换成ACTIVEX对象并赋值，您在程序中的写法“(vlax-ename->vla-object ee)“是不对的
;;下在开始求交点
                    (setq ver-interse
                           (VLAX-VARIANT-VALUE
                             (VLA-INTERSECTWITH obj-lin obj2 2)
                           )
                    )
;;求出的交点为安全数组，要转换成表：
(VLAX-SAFEARRAY->LIST ver-interse)