[求助]：请教个小问题

lzc0 · 发表于 2006-7-23 11:14:34

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

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

×

<<AutoLisp&DCL基础篇>>书上的一个小例子，我做的时候为什么圆心总在所选择直线的端点上，而不是像程序中所示为所选直线的中点。学习中，多谢指教。CAD版本为2004

(defun c:mcir1()
(setvar "cmdecho" 0)
(setq en (entsel "Select a LINE:"))
(setq en_data (entget (car en)))
(setq pt1 (cdr (assoc 10 en_data)))
(setq pt2 (cdr (assoc 11 en_data)))
(setq mx (/ (+ (car pt1) (car pt2)) 2))
(setq my (/ (+ (cadr pt1) (cadr pt2)) 2))
(setq mpt (list mx my))
(setq mr (getdist mpt "Circle Radius:")) ?
(command "circle" mpt mr)
(prin1)
)
(prompt "*************** << C:MCIR1 >> *****************")
(prin1)

雨箭风刀 · 发表于 2006-7-23 11:37:17

捕捉问题是初学者最容易忽视的问题

似水无痕 · 发表于 2006-7-23 11:45:24

是中点没错，2004版本应该不会出现这样的问题吧？

Underway · 发表于 2006-7-23 12:10:38

;(command "circle" mpt mr)
(command "circle" "none" mpt mr)

xyp1964 · 发表于 2006-7-23 12:11:25

[FONT=courier new]
(defun c:test ()
(setvar "cmdecho" 0)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
;;
;; 主程序
;;
(setvar "osmode" os)
(princ)
)[/FONT]

lzc0 · 发表于 2006-7-23 18:04:59

多谢大侠帮忙，按4楼、5楼的做，都好用了，但不明白什么道理，奢望能解释一下。

zw_zwzx · 发表于 2006-7-23 21:18:47

就是cad的捕捉在作怪，以后养成在运行程序前先将捕捉关掉，运行完再设置回来就好了。

lzc0 · 发表于 2006-8-7 21:15:49

谢谢啊！！！

cy956 · 发表于 2006-8-8 00:14:35

用entmake就不会有这样德问题。

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

[求助] [求助]：请教个小问题

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

相关帖子

浏览过的版块