[求助]：连续标尺寸的命令

szx025 · 发表于 2007-3-21 15:18:52

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

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

×

(defun C:DD (/ pt1 pt2 )
(if (setq pt1 (getpoint "\n第一点:"))
(if (setq pt2 (getpoint pt1 "第二点:"))
      (progn
(command "_dimlinear" pt1 pt2 "")
(command "_dimcontinue" )
      )
      )
   )
(princ)
)
我想写一个连续标尺寸的命令,执行后不是我想要的效果,可能(command "_dimcontinue" )它有问题,请指导

haibinpro · 发表于 2007-3-21 15:45:04

看看这个

(DEFUN C:DIMANGULAR()
(setvar "cmdecho" 0)
(while
(vl-cmdf "dimangular" pause pause pause)
)
(prin1)
)

szx025 · 发表于 2007-3-21 16:27:11

CAD中有此名利命令.它不是我想要的

haibinpro · 发表于 2007-3-21 16:35:46

将C:DIMANGULAR改为其他不就可以了？
代码只是参考而已。

szx025 · 发表于 2007-3-21 17:21:45

我要的是连续标水平(垂直)尺寸,不是角度

carrot1983 · 发表于 2007-3-21 18:24:34

试试
[php]
(defun c:test()
  (setq pt1 (getpoint "\n指定第一点:"))
  (setq pt2 (getpoint pt1 "\n指定第二点:"))
  (command "._DIMLINEAR" pt1 pt2 pause)
  (command "._DIMCONTINUE" pause)
  )
[/php]

szx025 · 发表于 2007-3-21 19:16:04

要的就是这个效果,谢谢楼上的朋友

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

[求助] [求助]：连续标尺寸的命令

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

相关帖子