[求助]：请教两个问题!

lyc3029 · 发表于 2005-9-5 10:10:51

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

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

×

1.我在我LISP中加载了别人的VLX.
我在LISP中怎样实现输入别人VLX中的命令!
(比如别人VLX中的命令是"tk" ,在我的LISP中怎么样调用这个命令,用commnad 不行)
还有怎样屏蔽加载过程中的(princ "XXXXX")
2
如下的LISP

;;;画箱梁纵向钢束布置图
(princ "\n Start command with zx.画箱梁纵向钢束布置图")
(defun C:zx(/  h hyb ldb lddb lxb hsg pt1 pt2 pt3 pt4)
  (setq h 140)
  (setq hyb 20)
  (setq ldb 1050)
  (setq lddb 550)
  (setq lxb 200)
  (setq hxg 40)
  (setq pt1 (getpoint "\n输入一点以得到坐标:"))
;;;;箱梁外缘线部分
  (setq pt2 (polar pt1 0 ldb))
  (setq pt3 (polar pt2 (- (* pi 0.5))  hyb))
  (command "line" pt1 pt2 pt3  "")
   )

为什么我HYB值取得大一点时,LISP运行正常,但如上取20时,时常会出现创建0长度直线,唉,百思不得其解,

请大侠们帮帮忙!

hyx_lyn · 发表于 2005-9-5 10:18:05

第一个问题不太明白，可能是自定义命令不可以在其它的LISP当中调用

第二个问题你只要把捕捉关掉就可以了

如：
(setq oldosmode (getvar "osmode"))
(setvar "osmode" 0)
......
(setvar "osmode" oldosmode)

lyc3029 · 发表于 2005-9-5 10:24:15

太感谢了,呵

hyx_lyn · 发表于 2005-9-5 11:21:26

不客气，大家共同进步吗！

yshf · 发表于 2005-9-5 11:28:50

(if (null tk)(load "tk所在文件的全路径名"))

舟自横 · 发表于 2005-9-5 11:44:16

1....
如果TK是(DEFUN TK................)那么调用(TK)
如果TK是(DEFUN C:TK................)那么调用(C:TK)
2...
关闭抓点模式(SETVAR "OSMODE" 0)
不过记得程序结尾时恢复抓点系统变量

xyp1964 · 发表于 2005-9-5 13:22:52

[php](defun C:test ()
  (setvar "osmode" 0)
  (setvar "plinewid" 0)
  (setq hyb 20
ldb 1050
pt1 (getpoint "\n起点 : ")
pt2 (polar pt1 0 ldb)
pt3 (polar pt2 (- (* pi 0.5)) hyb)
  )
  (command "pline" pt1 pt2 pt3 "")
  (princ)
)[/php]

lyc3029 · 发表于 2005-9-5 13:27:34

感谢强人们!

hyx_lyn · 发表于 2005-9-5 13:36:45

6楼的方法试了一下，可以又学会了一招

十分感谢

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

[求助] [求助]：请教两个问题!

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

相关帖子