[求助][LISP]紧急求救

meflying · 发表于 2003-10-25 18:42:00

将上面的代码存为*.lsp，在命令行里写(load filename)
filename 为刚才存的文件（注意路径）

呆呆 · 发表于 2003-10-27 11:37:00

还有请问斑竹已知点P1 和一条三维直线怎么能找到 P1 到该直线上的垂足

meflying · 发表于 2003-10-27 13:13:00

直接画LINE，用捕捉点捕捉垂足就可以了

龙龙仔 · 发表于 2003-10-27 16:33:00

(defun C:TEST (/ ENT P1 PT)
  (command "_.UCS" "")
  (setq ENT (car (entsel "\n选线: ")))
  (setq P1 (getpoint "\n选点: "))
  (setq PT (vlax-curve-getclosestpointto
      (vlax-ename->vla-object ENT)
      P1
      t
   )
  )
  ;;(setvar “osmode” 0)
  ;;(command "_.line" P1 PT "")
  (command "_.UCS" "

")
pt
)

呆呆 · 发表于 2003-10-27 16:45:00

meflying斑竹您好你所说的是平面中的而我所讲的是选取点P1 再选取三维直线立刻就能知道垂足

谢谢龙龙仔斑竹可是您是用vb 编辑的我工作的时候经常用的是R14 根本无法使用请问能遍个在14上也能用的急急谢谢

呆呆 · 发表于 2003-10-27 17:01:00

我的意思和龙龙老大的吻合就是用getpoint 得到点(p1)后直接用entsel选取直线一条三维直线(s1)
就能够得到垂足点(p2)了而不学要别的命令操作龙龙老大的程序可以但是在14上不能用
请各位高手帮帮忙

还有怎么到程序申请了请求高手帮忙边个小程序

龙龙仔 · 发表于 2003-10-27 17:05:00

(defun c:test (/ ENT P1 PT)
  (command "_.UCS" "")
  (setq ENT (car (setq EN (entsel "\n选线: "))))
  (setq P1 (getpoint "\n选点: "))
  (command "_.line" P1 "per" (cadr EN) "")
  ;;(command "_.erase" (entlast) "")
  (command "_.UCS" "

")
(getvar "lastpoint")
)

meflying · 发表于 2003-10-27 17:41:00

看样子我得补充一点，好象他不懂程序，
将以上代码复制到记事本，存为*.lsp，注意不是TXT文件。然后在R14命令行里输入
(load filename)
filename为刚才存的文件名。
然后输入命令test就可以了

呆呆 · 发表于 2003-10-27 17:48:00

meflying班主你说的我都知道龙龙老大的第一个程序能在14 上运行吗你认为行的话那你就试试反正我是不行的你的加载方式我早知道但是有些程序是在14上找不到函数的

meflying · 发表于 2003-10-27 18:04:00

第一个程序是用了VLISP，R14是用不了的，你却认为它是VB的程序，所以我才认为你对LISP不懂，
我告诉你运行方法，是针对第二个程序的，按顺序看帖子

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