[LISP函数]：强烈推荐!动点驱动的实现!!由静态变为动态就是这么简单!~请测试!

fsxm · 发表于 2006-10-17 22:52:30

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

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

×

fsxm:grread_drag动点驱动的实现
对于(fsxm:grread_drag '{expt pt **} '{expt2 **}中的pt实现实时驱动，
让你的程序充分的动态预朗变的如些容易!!!
现在在测试阶段敬请提出宝贵意见!多谢~
调用语法请见下面的例子~
注:{expt }中请不要出现交互函数如get**类

;;序号球对比test
(defun mak_xhq (p1 p2 / dist k pp)
(cond ((/= 0 (setq dist (distance p1 p2)))
(setq k (/ 5 dist))
(setq pp (mapcar '+ p2 (mapcar '* (mapcar '- p1 p2) (list k k k))))
(entmake (list '(0 . "line")
(cons 10 p1)
(cons 11 pp)
)
)
(entmake (list '(0 . "circle")
(cons 10 p2)
'(40 . 5)
)
)
)
)
)
(defun c:xhq () ;静态
(setq p1 (getpoint "p1:"))
(setq p2 (getpoint p1 "p2:"))
(mak_xhq p1 p2)
(princ)
)
(defun c:xhq2 ()
(setq p1 (getpoint "p1:")) ;半动态
(fsxm:grread_drag '(mak_xhq p1 pt) t)
(princ)
)
(defun c:xhq3 () ;全动态
(princ "p1:")
(setq p1 (fsxm:grread_drag '(mak_xhq pt (mapcar '+ pt '(10 10))) t))
(repeat 2 (entdel (entlast)))
(fsxm:grread_drag '(mak_xhq p1 pt) t)
(princ)
)
;;offset对比test
(defun c:off () ;静态
(setq en (entsel))
(setq pt (getpoint "p:"))
(command ".offset" "t" en pt "")
)
(defun c:off1 (/ en) ;动态
(setq en (entsel))
(fsxm:grread_drag '(command ".offset" "t" en "non" pt "") t)
;;下面的一句是错误的,因为出现了交互函数(entsel)
;;(fsxm:grread_drag '(command ".offset" "t" (entsel) "non" pt "") t)
)
;;show_curid test
(defun c:show_curid () ;动态
(fsxm:grread_drag '(princ (strcat "\r" (vl-princ-to-string pt))) t)
)

;;序号球对比test 
(defun mak_xhq (p1 p2 / dist k pp) 
  (cond        ((/= 0 (setq dist (distance p1 p2))) 
         (setq k (/ 5 dist)) 
         (setq pp (mapcar '+ p2 (mapcar '* (mapcar '- p1 p2) (list k k k)))) 
         (entmake (list        '(0 . "line") 
                        (cons 10 p1) 
                        (cons 11 pp) 
                  ) 
         ) 
         (entmake (list        '(0 . "circle") 
                        (cons 10 p2) 
                        '(40 . 5) 
                  ) 
         ) 
        ) 
  ) 
) 
(defun c:xhq ()                                ;静态 
  (setq p1 (getpoint "p1:")) 
  (setq p2 (getpoint p1 "p2:")) 
  (mak_xhq p1 p2) 
  (princ) 
) 
(defun c:xhq2 () 
  (setq p1 (getpoint "p1:"))                ;半动态 
  (fsxm:grread_drag '(mak_xhq p1 pt) t) 
  (princ) 
) 
(defun c:xhq3 ()                        ;全动态 
  (princ "p1:") 
  (setq p1 (fsxm:grread_drag '(mak_xhq pt (mapcar '+ pt '(10 10))) t)) 
  (repeat 2 (entdel (entlast))) 
  (fsxm:grread_drag '(mak_xhq p1 pt) t) 
  (princ) 
) 
;;offset对比test 
(defun c:off ()                                ;静态 
  (setq en (entsel)) 
  (setq pt (getpoint "p:")) 
  (command ".offset" "t" en pt "") 
) 
(defun c:off1 (/ en)                        ;动态 
  (setq en (entsel)) 
  (fsxm:grread_drag  '(command ".offset" "t" en "non" pt "") t) 
  ;;下面的一句是错误的,因为出现了交互函数(entsel) 
  ;;(fsxm:grread_drag  '(command ".offset" "t" (entsel) "non" pt "") t) 
) 
;;show_curid test 
(defun c:show_curid ()                        ;动态 
  (fsxm:grread_drag  '(princ (strcat "\r" (vl-princ-to-string pt))) t) 
)

从现在起要想动态预朗还要写一堆代码吗?不用了~
把getpoint 换为{动点驱动pt}再在前面加个{驱动函数fxm:grread_drag }
[/COLOR] 这一切就是这样简单!你信吗?

xshrimp · 发表于 2006-10-18 01:17:19

缺getpoint2函数.

fsxm · 发表于 2006-10-18 11:57:44

谢谢xshrimp 指出来
太大意了啦!忘了改函数名了哦!
getpoint2就是fsxm:grread_drag 啦!
因为在调试时用的是getpoint2(因为与getpoint有点像)
调试好了就改名为fsxm:grread_drag 了!
但后面的getpoint2忘了改掉了!

liuyj · 发表于 2006-10-18 16:21:53

相当强，要是能结合前几天那个grreadosnap，支持捕捉就好了。另外，要是不愿公布源码的话能不能去掉加载时命令行的提示。

fsxm · 发表于 2006-10-18 20:13:54

呵呵~这个程序当然是可以结合前几天那个grreadosnap的啦~自家人乍能不认自家人呢?pt 换为(setq pt (grreadosnap pt))不就成了啦!当然只是在程序外部作为参数加上就行了哈哈~
[/COLOR]
这个程序的通用性很强大,几乎所有动态方式都可以用这种全新的方法{动点驱动}
来由静态快速转变为动态方式!~而你要做的只是调用一个简单的{动点pt}就可以搞定[/COLOR]

eachy · 发表于 2006-10-18 20:29:31

没有说明函数调用的参数意义，仿照 OFF1 写就是 Error

(defun c:tt (/ ss pt)
(setq ss (ssget)
pt (getpoint "\nP1: ")
)
(fsxm:grread_drag '(command ".move" "t" ss "non" pt "") t)
(princ)
)

fsxm · 发表于 2006-10-18 21:05:04

最初由 eachy 发布
[B]没有说明函数调用的参数意义，仿照 OFF1 写就是 Error
(defun c:tt (/ ss pt)
  (setq ss (ssget)
pt (getpoint "\nP1: ")
  )
  (fsxm:grread_drag '(command ".move" "t" ss "non" pt "") t)
  (pr... [/B]

晕倒~~老大move当然不能与offset一样了啦~

标准move的写法:
(defun c:tt ()
(setq ss (ssget)
p1 (getpoint "p1")
p2 (getpoint "p2")
)
(command "move" ss "" p1 p2)
)
因为move是以p1为准而ss与p1是变化的与平常不一样就这样写:
加入动点驱动:
(defun c:tt2 ()
(setq ss (ssget))
;;p2 (getpoint "p2")
(setvar "lastpoint" (getpoint "p1"))
(fsxm:grread_drag '(command "move" ss "" "@" pt) t)
)

以下再来一个例子说明fsxm:grread_drag的用法：

(defun c:daa () ;最原始状态要选取两个点(getangle)
(setq en (car (entsel)))
(setq ang (getangle "ang:"))
(command "dimedit" "o" en "" (* ang (/ 180 pi)))
(princ)
)
(defun c:daa2 () ;改成只用一点就行简化操作,现在还是静态的
(setq en (car (entsel)))
(setq pt (getpoint "pt:")) ;这行下面不要了而用动点pt搞定
(setq p-13 (cdr (assoc 13 (entget en))))
(setq ang (angle pt p-13)) ;这行下面用pt驱动
(command "dimedit" "o" en "" (* ang (/ 180 pi))) ;这行下面用pt驱动
(princ)
)
(defun c:daa3 () ;使用动点pt驱动使之成为动态
(setq en (car (entsel)))
;;(setq pt (getpoint "pt:"))
(setq p-13 (cdr (assoc 13 (entget en))))
(fsxm:grread_drag
'(progn
(setq ang (angle pt p-13)) ;pt驱动
(command "dimedit" "o" en "" (* ang (/ 180 pi))) ;pt驱动
)
t
)
(princ)
)

(defun c:daa ()                                ;最原始状态要选取两个点(getangle) 
  (setq en (car (entsel))) 
  (setq ang (getangle "ang:")) 
  (command "dimedit" "o" en "" (* ang (/ 180 pi))) 
  (princ) 
) 
 
 
(defun c:daa2 ()                        ;改成只用一点就行简化操作,现在还是静态的 
  (setq en (car (entsel))) 
  (setq pt (getpoint "pt:"))                ;这行下面不要了而用动点pt搞定 
  (setq p-13 (cdr (assoc 13 (entget en)))) 
  (setq ang (angle pt p-13))                ;这行下面用pt驱动 
  (command "dimedit" "o" en "" (* ang (/ 180 pi))) ;这行下面用pt驱动 
  (princ) 
) 
 
 
(defun c:daa3 ()                        ;使用动点pt驱动使之成为动态 
  (setq en (car (entsel))) 
  ;;(setq pt (getpoint "pt:")) 
  (setq p-13 (cdr (assoc 13 (entget en)))) 
  (fsxm:grread_drag 
    '(progn 
      (setq ang (angle pt p-13))        ;pt驱动 
      (command "dimedit" "o" en "" (* ang (/ 180 pi))) ;pt驱动 
     ) 
    t 
  ) 
  (princ) 
)

它山之石 · 发表于 2006-10-19 12:47:24

看晕了　
什么作用？

小菜 · 发表于 2006-10-19 14:28:20

express里面不是有同样的函数么？楼主这个对拖动过程中键盘输入的捕捉无效，而且也无法从上次输入点拉皮筋线，还是不太实用

fsxm · 发表于 2006-10-19 20:39:57

它山之石老兄~慢慢体会吧~哈哈~
小菜:
虽然我没用过express 但是还是知道它与fsxm:grread_drag 是不一样的~et中是对ss驱动的~但我这却是对自定义过程or函数实现驱动~
当然不是一样的
键盘输入的捕捉无效??
呵呵~不是无效的啦!只是我没有一下子全说明出来!
不信你将后面的(fsxm:grread_drag '(command ".offset" "t" en "non" pt "") t)
中的T参数改为: '(alert "看见了吧?") 按下键盘会出现什么现象???
我这里是提供对函数的动态驱动效果~ 想不出来与什么橡皮线有什么关系??
只要你将"橡皮线函数"让pt驱动没有什么不可能达到的~

snoopychen · 发表于 2006-10-19 23:20:44

fsxm兄,用gif.gif.gif或者其他抓图软件做个动画演示好么,谢谢:)

dandee · 发表于 2006-10-20 05:30:20

第一遍看得晕

创意很灵，不过对于这个用grread制作的新函数，
在使用格式上，请给予严格详细的函数格式使用说明

原以为(fsxm:grread_drag后面只要加个点就可以了，其实是需要一个命令表达式，表达式里需要包含一个点
这个点就是楼主所谓的动点而且好像可以加两个表达式。后一个可以用t来替代。t的含义可能会有点花头

如果命令表达式里有选择的实体，那这个实体或(命令表达式生成的新实体) 可能以动态的形式出现。直到命令完成

汗！要解释楼主的函数，有点晕
不知道我理解是否正确

小菜 · 发表于 2006-10-20 08:12:39

我也看着有点晕~
皮筋线的效果就是(getpoint (getpoint))的样子，可以实现极轴追踪，我一直觉得grread做不了这种效果，不知道楼主有没有办法？

雨箭风刀 · 发表于 2006-10-20 10:49:37

对于(fsxm:grread_drag '{expt pt **} '{expt2 **}中的pt实现实时驱动，
注:{expt }中请不要出现交互函数如get**类

我看， {expt pt **} 里面对pt驱动，但是不能出现get×类，
所以，就用 '{expt2 **} 来弥补。因此 '{expt2 **} 是可以支持get×类的函数。
从执行持续上，'{expt2 **}应该在'{expt pt **} 的前面。当'{expt2 **} ＝＝T ，支持grread的模拟捕捉。

呵呵，我没有试用过，瞎猜的：）

有点小烦 · 发表于 2006-10-24 17:01:56

行家看门道，外行看热闹……

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

[LISP函数]：强烈推荐!动点驱动的实现!!由静态变为动态就是这么简单!~请测试!

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

相关帖子

浏览过的版块