.net输出的函数让Lisp完美实现拖动！

飞诗(fsxm) · 发表于 2010-1-5 23:32

不支持2006及以下！

2010测试成功了！别的CAD版本还没测试！

函数调用方式说明:
(Fsxm-Jig 提示信息str 关键字str 光标形态str 回调函数str)

;;测试程序

;;注：下面这行请务必加在文件前面！
(vl-acad-defun 'vl-acad-defun)

;;主程序
(defun c:test (/ cir)
(setq cir (entmakex (list '(0 . "circle")
       (cons 10 (cadr (grread t)))
       (cons 40 10)
        )
     )
)
;;注意回调函数的参数一定要为一个点
(defun jig (pt / ed)
    (setq ed (entget cir))
    (entmod (subst (cons 10 pt) (assoc 10 ed) ed))
    ;;注意返回值一定要为托动的图元:Ent,或list Ent1 Ent2 Ent3 ...)
    cir
)
;;OK让我们开始托动吧！
(Fsxm-Jig "指定圆心坐标:" "" "" "jig")
)

caoyin · 发表于 2010-1-6 00:09

不错，占个沙发。

请先用NotLoad命令加载FsxmAcadLib.dll，
NotLoad 应为 NetLoad

shaojingjing · 发表于 2010-1-6 09:47

谢谢FS大侠,下来学学了.谢谢!

明经网友 *发表于 2010-1-6 11:51* · 发表于 2010-1-6 11:51

嗯！是netlod ，打错字了

飞诗(fsxm) · 发表于 2010-1-6 11:53

嗯！谢谢caoyin指正！是netload命令加载！打错字了

liminnet · 发表于 2010-1-6 12:30

提示: 作者被禁止或删除内容自动屏蔽

totoro · 发表于 2010-1-6 21:47

学习了

flowerson · 发表于 2010-1-13 19:38

我的2006 不行。已经netload。出现no function definition: FSXM-JIG

sy100 · 发表于 2010-1-13 19:59

排队，学习，谢谢！

masterlong · 发表于 2010-4-29 21:29

赶来捧个场

可惜一直用2004

有空装个高版本的CAD体验一下

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

[函数] .net输出的函数让Lisp完美实现拖动！

本帖子中包含更多资源

浏览过的版块

liminnet liminnet 当前离线积分 9737 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	发表于 2010-1-6 12:30 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

[函数] .net输出的函数 让Lisp完美实现拖动！

本帖子中包含更多资源

浏览过的版块

[函数] .net输出的函数让Lisp完美实现拖动！