请帮帮忙，谢谢

meflying · 发表于 2004-2-27 13:14:00

这不是缺点，这是一个比较复杂的过程，

f5612140 · 发表于 2004-2-27 14:18:00

老大,這不難

(defun c:00(/ pt d1 d2 pt1 pt2 h1 h2)
(setq d1(getdist "\n 请输入大孔直径: "))
(setq d2(getdist "\n 请输入小孔直径: "))
(setq h1(getdist "\n 请输入板厚: "))
(setq h2(getdist "\n 请输入大孔深度: "))
(setq pt(getpoint"\n 请输入中心点 :"))
(setq pt1(list (- (car pt) (/ d1 2)) (cadr pt) ))
(setq pt2(list (+ (car pt) (/ d1 2)) (- (cadr pt) h2)))
(setvar "clayer" "粗实线")
(command"rectang" pt1 pt2) (setq ss1 (ssget "l")) ;增加
(setq pt1(list (- (car pt) (/ d2 2)) (- (cadr pt) h2)))
(setq pt2(list (+ (car pt) (/ d2 2)) (- (cadr pt) h1)))
(command"rectang" pt1 pt2) (setq ss2 (ssget "l")) ;增加
(setvar "clayer" "中心线")
(setq pt1(list (car pt) (+ (cadr pt) (/ d1 5))))
(setq pt2(list (car pt) (- (cadr pt) (+ h1 (/ d2 5)))))
(command"line" pt1 pt2 "") (setq ss3 (ssget "l")) ;增加
(setvar "clayer" "粗实线") (command "move" ss1 ss2 ss3 "" pt)
(command "move" "")
)

meflying · 发表于 2004-2-27 14:37:00

这要看对谁说了，楼主就画这几条线都有这么多问题，让他实现拖动功能会认为不难？

楼上的拖动效果不怎么好，需要先输入一个点，而且图形中也有一个一这个点为基准的一个固定的图，类似插入块，除了一个移动的图，是没有其它的，

晓雨 · 发表于 2004-2-27 18:52:00

可以了，还有一个问题，如果我有时候，注意，我说的是有时候，我要旋转这个图形，

有时候还要缩小放大，能行吗？

晓雨 · 发表于 2004-2-27 19:18:00

(defun c:00(/ pt d1 d2 pt1 pt2 h1 h2)
(setq d1(getdist "\n 请输入大孔直径: "))
(setq d2(getdist "\n 请输入小孔直径: "))
(setq h1(getdist "\n 请输入板厚: "))
(setq h2(getdist "\n 请输入大孔深度: "))
(setq pt(getpoint"\n 请输入中心点 :"))
(setq pt1(list (- (car pt) (/ d1 2)) (cadr pt) ))
(setq pt2(list (+ (car pt) (/ d1 2)) (- (cadr pt) h2)))
(setvar "clayer" "粗实线")
(Setvar "OSMODE" 0)
(command"rectang" pt1 pt2) (setq ss1 (ssget "l")) ;增加
(setq pt1(list (- (car pt) (/ d2 2)) (- (cadr pt) h2)))
(setq pt2(list (+ (car pt) (/ d2 2)) (- (cadr pt) h1)))
(command"rectang" pt1 pt2) (setq ss2 (ssget "l")) ;增加
(setvar "clayer" "中心线")
(setq pt1(list (car pt) (+ (cadr pt) (/ d1 5))))
(setq pt2(list (car pt) (- (cadr pt) (+ h1 (/ d2 5)))))
(command"line" pt1 pt2 "") (setq ss3 (ssget "l")) ;增加
(setvar "clayer" "粗实线") (command "rotate" ss1 ss2 ss3 "" pt)
(command "" )
(command "scale" ss1 ss2 ss3 "" pt)
(command "" )
(setvar "OSMODE" 1) ) 这样好像只能实现旋转，不能缩放，那是为什么？

meflying · 发表于 2004-2-27 19:33:00

command后SCALE的参数不对

晓雨 · 发表于 2004-2-27 20:09:00

为什么会不对了，是不是旋转后那几个ss 就变掉了，那应该怎么办呢？顺便问一下，开平方，开立方的函数是什么？谢谢版主

meflying · 发表于 2004-2-27 20:11:00

为什么不对？在命令行用一下命令不就知道了吗？

晓雨 · 发表于 2004-2-27 20:20:00

我用过了，对的啊，我把缩放放前面的时候它是有用的啊，但旋转又没有用了，

meflying · 发表于 2004-2-27 20:56:00

让你输入命令看看参数对不对，为什么不肯做，还硬说对？（提示：命令最后该输入点，可你却输入一个空回车）你按你说的放在前面就可以的做法，然后在程序的最后加上一句(princ "hello!")，如果真的是正确，那会打印一句hello!，你看是否有。。。。不明白为什么两次都要加入(command "")做什么？你要的是这样的效果吧：将后面的四个command该为如下两句 (command "rotate" ss1 ss2 ss3 "" pt PAUSE)
(command "scale" ss1 ss2 ss3 "" pt PAUSE)

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