[求助]：單點打斷(請大家看看哪裏錯了)

taner · 发表于 2006-1-18 10:15:37

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

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

×

[FONT=courier new]
(defun test (entname breakpoint / breakpoint entname ent)
(if entname
(command "break" entname breakpoint "@")
(progn
(setq ent (entsel "\n請點選實體:")
entname (car ent)
breakpoint (cadr ent)
)
(command "break" entname breakpoint "@")
)
)
(princ)
)
[/FONT]

JOSDENNIS · 发表于 2006-1-18 10:32:00

應這樣(VL-CMDF ".BREAK" (LIST entname breakpoint)"F"breakpoint "@")
但是最理想的是　breakpoint 要在對象上面好點，我個人認為

Underway · 发表于 2006-1-18 12:43:39

(command "break" .....)
有版本要对映的问题
不是一体适用

taner · 发表于 2006-1-18 13:04:55

最初由 Underway 发布
[B](command "break" .....)
有版本要对映的问题
不是一体适用 [/B]

我用的是2006,但是與幫助的說明不矛盾.

Underway · 发表于 2006-1-18 13:10:33

Arguments 中
分 (entsel) 所得的 List 资料
与 (car (entsel)) 所得的图元资料
有区别,请自行测试

taner · 发表于 2006-1-18 13:25:26

最初由 Underway 发布
[B]Arguments 中
分 (entsel) 所得的 List 资料
与 (car (entsel)) 所得的图元资料
有区别,请自行测试 [/B]

[FONT=courier new]
(defun test (ent breakpoint / breakpoint ent )
(if ent
(command "break" ent breakpoint "@")
(progn
(setq ent (entsel "\n請點選實體:")
;ent (car ent)
breakpoint (cadr ent)
)
(command "break" ent breakpoint "@")
)
)
(princ)
)
[/FONT]

修改後運行仍不正確!

Underway · 发表于 2006-1-18 13:40:04

(defun test (ent breakpoint / breakpoint ent )

====>
(defun test (ent1 breakpoint / breakpoint ent2 ) ;; ent / ent == clear your first ent

taner · 发表于 2006-1-18 13:49:33

最初由 Underway 发布
[B](defun test (ent breakpoint / breakpoint ent )

====>
(defun test (ent1 breakpoint / breakpoint ent2 ) ;; ent / ent == clear your first ent [/B]

仍然不正確.

局部和全局變量都有,是有目的的.
可以(test nil nil)和(test ent breakpoint)调用.是有区别的.

Underway · 发表于 2006-1-18 16:34:11

(defun test (ent breakpoint / breakpoint ent )
  (princ ent)    ;;; check if exist ent
  (if ent
.
.
.
  )
  (princ)
)

xyp1964 · 发表于 2006-1-19 21:46:28

[FONT=courier new](defun bk-test (entname pt)
(if (and entname pt)
(command "break" entname pt "@")
)
(princ)
)
(defun c:test ()
(setq ent (entsel "\n請點選實體 : ")
entname (car ent)
pt (cadr ent)
)
(bk-test entname pt)
)[/FONT]

taner · 发表于 2006-1-20 06:56:47

最初由 xyp1964 发布
[B][CODE](defun bk-test (entname pt)
  (if (and entname pt)
(command "break" entname pt "@")
  )
  (princ)
)
(defun c:test ()
  (setq ent (entsel "\n請點選實體 : ")
entname... [/B]

版主的程序在我電腦也通不過.我懷疑我的電腦有問題了!

ljpnb · 发表于 2006-1-20 11:51:28

TO 11楼，那是开着捕捉的关系，你关掉再试试

taner · 发表于 2006-1-20 13:01:24

最初由 ljpnb 发布
[B]TO 11楼，那是开着捕捉的关系，你关掉再试试 [/B]

真的很感謝,原來我一樓的程序也可以用.看樣子先要將OSMODE設爲0

[FONT=courier new]
(defun test (entname breakpoint / breakpoint entname ent os)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(if (and entname breakpoint)
(command "break" entname breakpoint "@")
(progn
(setq ent (entsel "\n請點選實體:")
entname (car ent)
breakpoint (cadr ent)
)
(command "break" entname breakpoint "@")
)
)
(setvar "osmode" os)
(princ)
)
[/FONT]

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

[求助] [求助]：單點打斷(請大家看看哪裏錯了)

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

相关帖子