设为首页收藏本站CAD论坛CAD教程CAD下载明经币充值
切换到宽版

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › [求助]怎样模仿夹点磁吸效果
返回列表 发新帖
查看: 1836|回复: 5

[求助]怎样模仿夹点磁吸效果

[复制链接]
caoyin
发表于 2009-7-6 09:54:00 | 显示全部楼层 |阅读模式

夹点编辑时，当鼠标靠近夹点，自动被磁吸到夹点中心。

问：怎样在LISP编程时模仿之——怎样更改光标位置！！

"觉得好，就打赏"
打赏
还没有人打赏，支持一下
回复

使用道具 举报

434939575
发表于 2012-3-23 23:39:51 | 显示全部楼层
版主我找了个磁铁效果，光标点图后，不能离开图。
回复 支持 反对

使用道具 举报

chlh_jd
发表于 2012-3-24 03:13:26 | 显示全部楼层
是否可以理解为模拟捕捉？不知道这个是否是楼主要的效果？
  2. ;;; Draw perpendicular line
  3. ;;; Alan J. Thompson, 10.15.09
  4. ;;; Edited by GSLS(SS) 2011-03-08
  5. (defun c:Lper (/ foo myerr olderr #Ent #Read pt p0 ang ent blk?)
  6.   (defun foo (/ is_go lst mid m)   
  7.     (if        (setq pt (osnap (cadr #read) "_end,_mid,_cen,_nod,_int,_tan,_per,_nea" ))
  8.       (progn
  9.         (setq is_go T
  10.               lst (list "_end" "_mid" "_cen" "_nod" "_int" "_tan" "_per" "_nea"))
  11.         (while (and is_go lst)
  12.           (setq        mid (car lst)
  13.                 lst (cdr lst))
  14.           (if (equal pt (osnap (cadr #read) mid))
  15.             (setq m mid  is_go        nil)))
  16.         (if m (osMark (list pt m (cadr #read))))))
  17.     (or pt (setq pt (cadr #Read)))
  18.     (setq pt (trans pt 1 0))
  19.     (setq p0 (vlax-curve-getclosestpointto #Ent pt T))
  20.   );_Add osmark
  21.   (defun myerr (msg)        
  22.     (if        msg (princ msg))
  23.     (if blk? (entdel #ent))
  24.     (setq *error* olderr)
  25.     (*error* nil));_end err
  26.   (setq olderr *error*)  
  27.   (setq #Ent (car (entsel "\n选择曲线: ")))   
  28.   (if (and #ent (vl-position (cdr (assoc 0 (entget #Ent)))  (list "LWPOLYLINE" "ARC" "LINE" "CIRCLE" "ELLIPSE" "SPLINE")))      
  29.     (while (and (/= 25 (car (setq #Read (grread T 1 1)))) (/= (car #Read) 11) (/= (car #Read) 2))
  30.       (princ "\r选择点: ")
  31.       (redraw)
  32.       (if (vl-consp (cadr #Read))(foo))
  33.       (if p0
  34.         (grdraw p0 (trans pt 1 0) 1) ;_grdraw
  35.       ) ;_if      
  36.       (if (and (eq 3 (car #Read)) (foo))
  37.         (if (not (equal pt p0 1e-6))
  38.           (entmake
  39.             (list
  40.               (cons 0 "LINE")
  41.               (cons 10 p0)
  42.               (cons 11 pt)
  43.             )
  44.           );_entmake
  45.           (progn ;_the part writen by Lee Mac
  46.             (setq ang  (+ (get-AngleAtPoint #Ent p0) _pi2))
  47.             (line-ang p0 ang)
  48.           )
  49.         )
  50.       ) ;_ if
  51.     ) ;_ while   
  52.   ) ;_ if
  53.   (redraw)
  54.   (myerr nil)
  55.   (princ)
  56. ) ;_ defun
  57. ;;; 参数 o 列表
  58. ;;; (显示捕捉点，捕捉模式,鼠标读到的点)
  59. ;;;捕捉模式:
  60. ;;;         "_end" "_mid" "_cen" "_nod" "_qua" "_int" "_ins" "_tan"  "_per" "_nea" "_app"
  61. ;;;          端点   中点   中心   节点   象限   交点   插入   切点   垂足    最近  外观交点
  62. ;;;(osMark '((21039.1 7673.26 0.0) "_nea" (21005.3 7595.91 0.0)))
  63. ;;;(check-pt '((21039.1 7673.26 0.0) (21005.3 7595.91 0.0)))
  64. (defun osMark (o / s drft osGrv)
  65.   (setq        s (/ (getvar "VIEWSIZE") (cadr (getvar "SCREENSIZE")))
  66.         o (cons (trans (car o) 1 3) (cdr o))
  67.   )
  68.   (setq        osGrv (osmode-grvecs-lst
  69.                 (vla-get-AutoSnapMarkerColor
  70.                   (setq        drft (vla-get-drafting
  71.                                (vla-get-preferences
  72.                                  (vlax-get-acad-object)
  73.                                )
  74.                              )
  75.                   )
  76.                 )
  77.                 (vla-get-AutoSnapMarkerSize drft)
  78.               )
  79.   )
  80.   (grvecs (cdr (assoc (cadr o) osGrv))
  81.           (list        (list s 0. 0. (caar o))
  82.                 (list 0. s 0. (cadar o))
  83.                 (list 0. 0. s (caddar o))
  84.                 (list 0. 0. 0. 1.)
  85.           )
  86.   )
  87. )
  88. ;;;by Lee Mac
  89. (defun line-ang (p0 ang / ent #Read)
  90.   (setq ent (entget (entmakex (list (cons 0 "LINE") (cons 10 p0)(cons 11 p0)))))
  91.   (while (= 5 (car (setq #Read (grread T 13 0))))             
  92.               (entupd(cdr(assoc -1(entmod(list(assoc -1 ent)(cons 11 (trans
  93.                         (polar p0 ang ((if(minusp ((lambda (n)
  94.                                       (- (caddr (trans (cadr #read) 1 n))
  95.                                          (caddr (trans p0 1 n))))
  96.                                                    (polar (list 0. 0. 0.) ang 1.))) -  +)
  97.                                 (distance p0 (cadr #read)))) 1 0)))))))))
  98. ;;get AngatPoint of curve
  99. (defun get-AngleAtPoint (e p / el v a)
  100.   (if (= (cdr (assoc 0 (setq el (entget e)))) "LINE")
  101.     (angle (cdr (assoc 10 el)) (cdr (assoc 11 el)))
  102.     (setq p (vlax-curve-getClosestPointTo e p)
  103.           v (vlax-curve-getfirstderiv
  104.               e
  105.               (vlax-curve-getparamatpoint
  106.                 e
  107.                 p
  108.               )
  109.             )
  110.           a (angle p (mapcar (function +) p v))
  111.     )
  112.   )
  113. )
  114. ;;
  115. (defun osmode-grvecs-lst (col ass / -ASS ASS COL)
  116.   ;; By Evgeniy Elpanov (Modified by Lee McDonnell)
  117.   (setq -ass (- ass))
  118.   (list        (list "_end"
  119.               col
  120.               (list -ass -ass)
  121.               (list -ass ass)
  122.               col
  123.               (list (1- -ass) (1- -ass))
  124.               (list (1- -ass) (1+ ass))
  125.               col
  126.               (list -ass ass)
  127.               (list ass ass)
  128.               col
  129.               (list (1- -ass) (1+ ass))
  130.               (list (1+ ass) (1+ ass))
  131.               col
  132.               (list ass ass)
  133.               (list ass -ass)
  134.               col
  135.               (list (1+ ass) (1+ ass))
  136.               (list (1+ ass) (1- -ass))
  137.               col
  138.               (list ass -ass)
  139.               (list -ass -ass)
  140.               col
  141.               (list (1+ ass) (1- -ass))
  142.               (list (1- -ass) (1- -ass))
  143.         )
  144.         (list "_mid"
  145.               col
  146.               (list -ass -ass)
  147.               (list 0. ass)
  148.               col
  149.               (list (1- -ass) (1- -ass))
  150.               (list 0. (1+ ass))
  151.               col
  152.               (list 0. ass)
  153.               (list ass -ass)
  154.               col
  155.               (list 0. (1+ ass))
  156.               (list (1+ ass) (1- -ass))
  157.               col
  158.               (list ass -ass)
  159.               (list -ass -ass)
  160.               col
  161.               (list (1+ ass) (1- -ass))
  162.               (list (1- -ass) (1- -ass))
  163.         )
  164.         (list "_cen"
  165.               7
  166.               (list (* -ass 0.2) 0.)
  167.               (list (* ass 0.2) 0.)
  168.               7
  169.               (list 0. (* -ass 0.2))
  170.               (list 0. (* ass 0.2))
  171.               col
  172.               (list -ass 0.)
  173.               (list (* -ass 0.86) (* ass 0.5))
  174.               col
  175.               (list (* -ass 0.86) (* ass 0.5))
  176.               (list (* -ass 0.5) (* ass 0.86))
  177.               col
  178.               (list (* -ass 0.5) (* ass 0.86))
  179.               (list 0. ass)
  180.               col
  181.               (list 0. ass)
  182.               (list (* ass 0.5) (* ass 0.86))
  183.               col
  184.               (list (* ass 0.5) (* ass 0.86))
  185.               (list (* ass 0.86) (* ass 0.5))
  186.               col
  187.               (list (* ass 0.86) (* ass 0.5))
  188.               (list ass 0.)
  189.               col
  190.               (list ass 0.)
  191.               (list (* ass 0.86) (* -ass 0.5))
  192.               col
  193.               (list (* ass 0.86) (* -ass 0.5))
  194.               (list (* ass 0.5) (* -ass 0.86))
  195.               col
  196.               (list (* ass 0.5) (* -ass 0.86))
  197.               (list 0. -ass)
  198.               col
  199.               (list 0. -ass)
  200.               (list (* -ass 0.5) (* -ass 0.86))
  201.               col
  202.               (list (* -ass 0.5) (* -ass 0.86))
  203.               (list (* -ass 0.86) (* -ass 0.5))
  204.               col
  205.               (list (* -ass 0.86) (* -ass 0.5))
  206.               (list -ass 0.)
  207.         )
  208.         (list "_nod"
  209.               col
  210.               (list -ass -ass)
  211.               (list ass ass)
  212.               col
  213.               (list -ass ass)
  214.               (list ass -ass)
  215.               col
  216.               (list -ass 0.)
  217.               (list (* -ass 0.86) (* ass 0.5))
  218.               col
  219.               (list (* -ass 0.86) (* ass 0.5))
  220.               (list (* -ass 0.5) (* ass 0.86))
  221.               col
  222.               (list (* -ass 0.5) (* ass 0.86))
  223.               (list 0. ass)
  224.               col
  225.               (list 0. ass)
  226.               (list (* ass 0.5) (* ass 0.86))
  227.               col
  228.               (list (* ass 0.5) (* ass 0.86))
  229.               (list (* ass 0.86) (* ass 0.5))
  230.               col
  231.               (list (* ass 0.86) (* ass 0.5))
  232.               (list ass 0.)
  233.               col
  234.               (list ass 0.)
  235.               (list (* ass 0.86) (* -ass 0.5))
  236.               col
  237.               (list (* ass 0.86) (* -ass 0.5))
  238.               (list (* ass 0.5) (* -ass 0.86))
  239.               col
  240.               (list (* ass 0.5) (* -ass 0.86))
  241.               (list 0. -ass)
  242.               col
  243.               (list 0. -ass)
  244.               (list (* -ass 0.5) (* -ass 0.86))
  245.               col
  246.               (list (* -ass 0.5) (* -ass 0.86))
  247.               (list (* -ass 0.86) (* -ass 0.5))
  248.               col
  249.               (list (* -ass 0.86) (* -ass 0.5))
  250.               (list -ass 0.)
  251.         )
  252.         (list "_qua"
  253.               col
  254.               (list 0. -ass)
  255.               (list -ass 0.)
  256.               col
  257.               (list 0. (1- -ass))
  258.               (list (1- -ass) 0.)
  259.               col
  260.               (list -ass 0.)
  261.               (list 0. ass)
  262.               col
  263.               (list (1- -ass) 0.)
  264.               (list 0. (1+ ass))
  265.               col
  266.               (list 0. ass)
  267.               (list ass 0.)
  268.               col
  269.               (list 0. (1+ ass))
  270.               (list (1+ ass) 0.)
  271.               col
  272.               (list ass 0.)
  273.               (list 0. -ass)
  274.               col
  275.               (list (1+ ass) 0.)
  276.               (list 0. (1- -ass))
  277.         )
  278.         (list "_int"
  279.               col
  280.               (list -ass -ass)
  281.               (list ass ass)
  282.               col
  283.               (list -ass (1+ -ass))
  284.               (list ass (1+ ass))
  285.               col
  286.               (list (1+ -ass) -ass)
  287.               (list (1+ ass) ass)
  288.               col
  289.               (list -ass ass)
  290.               (list ass -ass)
  291.               col
  292.               (list -ass (1+ ass))
  293.               (list ass (1+ -ass))
  294.               col
  295.               (list (1+ -ass) ass)
  296.               (list (1+ ass) -ass)
  297.         )
  298.         (list "_ins"
  299.               col
  300.               (list (* -ass 0.1) (* -ass 0.1))
  301.               (list -ass (* -ass 0.1))
  302.               col
  303.               (list -ass (* -ass 0.1))
  304.               (list -ass ass)
  305.               col
  306.               (list -ass ass)
  307.               (list (* ass 0.1) ass)
  308.               col
  309.               (list (* ass 0.1) ass)
  310.               (list (* ass 0.1) (* ass 0.1))
  311.               col
  312.               (list (* ass 0.1) (* ass 0.1))
  313.               (list ass (* ass 0.1))
  314.               col
  315.               (list ass (* ass 0.1))
  316.               (list ass -ass)
  317.               col
  318.               (list ass -ass)
  319.               (list (* -ass 0.1) -ass)
  320.               col
  321.               (list (* -ass 0.1) -ass)
  322.               (list (* -ass 0.1) (* -ass 0.1))
  323.               col
  324.               (list (1- (* -ass 0.1)) (1- (* -ass 0.1)))
  325.               (list (1- -ass) (1- (* -ass 0.1)))
  326.               col
  327.               (list (1- -ass) (1- (* -ass 0.1)))
  328.               (list (1- -ass) (1+ ass))
  329.               col
  330.               (list (1- -ass) (1+ ass))
  331.               (list (1+ (* ass 0.1)) (1+ ass))
  332.               col
  333.               (list (1+ (* ass 0.1)) (1+ ass))
  334.               (list (1+ (* ass 0.1)) (1+ (* ass 0.1)))
  335.               col
  336.               (list (1+ (* ass 0.1)) (1+ (* ass 0.1)))
  337.               (list (1+ ass) (1+ (* ass 0.1)))
  338.               col
  339.               (list (1+ ass) (1+ (* ass 0.1)))
  340.               (list (1+ ass) (1- -ass))
  341.               col
  342.               (list (1+ ass) (1- -ass))
  343.               (list (1- (* -ass 0.1)) (1- -ass))
  344.               col
  345.               (list (1- (* -ass 0.1)) (1- -ass))
  346.               (list (1- (* -ass 0.1)) (1- (* -ass 0.1)))
  347.         )
  348.         (list "_tan"
  349.               col
  350.               (list -ass ass)
  351.               (list ass ass)
  352.               col
  353.               (list (1- -ass) (1+ ass))
  354.               (list (1+ ass) (1+ ass))
  355.               col
  356.               (list -ass 0.)
  357.               (list (* -ass 0.86) (* ass 0.5))
  358.               col
  359.               (list (* -ass 0.86) (* ass 0.5))
  360.               (list (* -ass 0.5) (* ass 0.86))
  361.               col
  362.               (list (* -ass 0.5) (* ass 0.86))
  363.               (list 0. ass)
  364.               col
  365.               (list 0. ass)
  366.               (list (* ass 0.5) (* ass 0.86))
  367.               col
  368.               (list (* ass 0.5) (* ass 0.86))
  369.               (list (* ass 0.86) (* ass 0.5))
  370.               col
  371.               (list (* ass 0.86) (* ass 0.5))
  372.               (list ass 0.)
  373.               col
  374.               (list ass 0.)
  375.               (list (* ass 0.86) (* -ass 0.5))
  376.               col
  377.               (list (* ass 0.86) (* -ass 0.5))
  378.               (list (* ass 0.5) (* -ass 0.86))
  379.               col
  380.               (list (* ass 0.5) (* -ass 0.86))
  381.               (list 0. -ass)
  382.               col
  383.               (list 0. -ass)
  384.               (list (* -ass 0.5) (* -ass 0.86))
  385.               col
  386.               (list (* -ass 0.5) (* -ass 0.86))
  387.               (list (* -ass 0.86) (* -ass 0.5))
  388.               col
  389.               (list (* -ass 0.86) (* -ass 0.5))
  390.               (list -ass 0.)
  391.         )
  392.         (list "_per"
  393.               col
  394.               (list -ass -ass)
  395.               (list -ass ass)
  396.               col
  397.               (list (1- -ass) (1- -ass))
  398.               (list (1- -ass) (1+ ass))
  399.               col
  400.               (list ass -ass)
  401.               (list -ass -ass)
  402.               col
  403.               (list (1+ ass) (1- -ass))
  404.               (list (1- -ass) (1- -ass))
  405.               col
  406.               (list -ass 0.)
  407.               (list 0. 0.)
  408.               col
  409.               (list -ass -1.)
  410.               (list 0. -1.)
  411.               col
  412.               (list 0. 0.)
  413.               (list 0. -ass)
  414.               col
  415.               (list -1. 0.)
  416.               (list -1. -ass)
  417.         )
  418.         (list "_nea"
  419.               col
  420.               (list -ass -ass)
  421.               (list ass ass)
  422.               col
  423.               (list -ass ass)
  424.               (list ass ass)
  425.               col
  426.               (list (1- -ass) (1+ ass))
  427.               (list (1+ ass) (1+ ass))
  428.               col
  429.               (list -ass ass)
  430.               (list ass -ass)
  431.               col
  432.               (list ass -ass)
  433.               (list -ass -ass)
  434.               col
  435.               (list (1+ ass) (1- -ass))
  436.               (list (1- -ass) (1- -ass))
  437.         )
  438.         (list "_app"
  439.               col
  440.               (list -ass -ass)
  441.               (list ass ass)
  442.               col
  443.               (list ass -ass)
  444.               (list -ass ass)
  445.               col
  446.               (list -ass -ass)
  447.               (list -ass ass)
  448.               col
  449.               (list (1- -ass) (1- -ass))
  450.               (list (1- -ass) (1+ ass))
  451.               col
  452.               (list -ass ass)
  453.               (list ass ass)
  454.               col
  455.               (list (1- -ass) (1+ ass))
  456.               (list (1+ ass) (1+ ass))
  457.               col
  458.               (list ass ass)
  459.               (list ass -ass)
  460.               col
  461.               (list (1+ ass) (1+ ass))
  462.               (list (1+ ass) (1- -ass))
  463.               col
  464.               (list ass -ass)
  465.               (list -ass -ass)
  466.               col
  467.               (list (1+ ass) (1- -ass))
  468.               (list (1- -ass) (1- -ass))
  469.         )
  470.   )
  471. )
回复 支持 反对

使用道具 举报

cabinsummer
发表于 2012-3-26 16:33:56 来自手机 | 显示全部楼层
我的动态粗糙度是否是你要的效果，仅磁吸了最近点，其它特殊点的磁吸可以扩展
回复 支持 反对

使用道具 举报

caoyin
 楼主| 发表于 2012-3-26 20:25:28 | 显示全部楼层
本帖最后由 caoyin 于 2012-3-26 20:26 编辑

所谓磁吸，就是光标距离某个点较劲的时候，那个点可以像磁铁一样把光标吸过去，而不是点的捕捉
回复 支持 反对

使用道具 举报

fawn_lgc
发表于 2012-3-27 16:05:01 | 显示全部楼层
这个……基本上很难
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码，在未取得本站及作者授权的情况下，不得用于商业用途

GMT+8, 2025-9-25 04:45 , Processed in 0.157534 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表