[求助]：贱人兄,真诚相见!

ld80721

贱人兄,怎么联系你呀?有很多问题要向你讨教.望回帖!

ouyangsong

这么无聊的贴子别占晓东CAD空间。

ld80721

我想请教贱人兄,也有错,我想晓东兄定会支持的.
热心是坏事吗?
给人以帮助是高尚的.
本来论坛就是给同道中人提供帮助的.
谢谢晓东!

它山之石

你可以发悄悄话与他联系呀

似水无痕

它山兄，楼主的币目前还不够发悄悄话！呵呵！

eli

发悄悄话还要有币的要求啊，还搞不懂咧

似水无痕

最初由 eli 发布
[B]发悄悄话还要有币的要求啊，还搞不懂咧 [/B]

爱心币达到50个才能发

xyp1964

最初由 ld80721 发布
[B]贱人兄,怎么联系你呀?有很多问题要向你讨教.望回帖! [/B]

请直接把问题贴出来，免遭“灌水”嫌疑！

贱人

同意1964 兄，把问题贴上来吧

ld80721

请问如何实现点击dcl对话框中按钮执行lisp程序!
我想把积累的lisp小程序合在一块,通过面板中的按钮点击执行.

我的问题似水无痕兄已知晓,请见http://p4.xdcad.net/forum/showthread.php?s=&threadid=494535

烦劳各位长老赐教!

贱人兄,我真的很想知道你的70个工具的面板形式是如何做的,望直言,没有盗窃你的意思,只是兴趣太足,我想有个自己的小面板,望针对上贴的内容帮我编个,我再琢磨.
无论结果如何还是先谢谢你.

贱人

//test.dcl

test:dialog{label="test";
:column{
:button{label="加宽";key="bb1";}
:button{label="弧长";key="bb2";}
}
spacer_1;
cancel_button;
}



;;;test.lsp

(defun c:test()
   (setvar "cmdecho" 0)
   (dcl_test)
   (prin1)
)

(defun dcl_test()
   (setq dcl_id (load_dialog "test"))
   (new_dialog "test" dcl_id)
   (action_tile "bb1" "(done_dialog 1)")
   (action_tile "bb2" "(done_dialog 2)")
   (setq dd (start_dialog))
   (cond ((= dd 1)(c:lw))
         ((= dd 2)(c:hu))
   )
(unload_dialog dcl_id)
(princ)
)

;;;

(defun c:lw()
(progn(write-line"\n 选择实体：")
(setq selet (ssget))
)
(setq pw (getreal "\n输入线宽："))
(setq n 0)
(if(/= selet nil)
(repeat(sslength selet)
(setq entname(ssname selet n))
(setq ent (entget entname))
(setq name (cdr(assoc 0 ent)))
(if(or(= name "LINE")(= name "ARC"))
(command"pedit"entname"y""w" pw \r)
)
(if(= name "LWPOLYLINE")
(command "pedit" entname "w" pw \r)
)
(setq n (1+ n))
)
)
(princ)
)

弧长标注
(defun C:hu (/ obj sel el e r ang angs ange larc pnt multi)
(setvar "CMDECHO" 0)
(setq multi (getvar 'dimlfac));;;add 2002.5.15 can remove
(setq obj (entsel "\nSelect ARC: "))
(setq sel (car obj))

(setq pnt (getpoint "point"))

(terpri)
(if (/= sel nil)
(progn
(setq el (entget sel))

(setq e (assoc 0 el))
(if (= "ARC" (cdr e))
(progn
(setq r (assoc 40 el))
(setq r (cdr r))
(setq angs (assoc 50 el))
(setq angs (cdr angs))
(setq ange (assoc 51 el))
(setq ange (cdr ange))
(setq ang (- ange angs))
(if (< ang 0)
(setq ang (- (* 2 pi) (abs ang)))
)
(setq larc (* r ang))
(setq larc (* larc multi));;;add 2002.2.20 can remove
;;;add muti as multiple
;;;(princ "Angle = ")
;;;(prin1 (* (/ ang pi) 180))
;;;(princ " , Radius = ")
;;;(prin1 r)
;;;(princ "\nLength of ARC is : ")
;;;(prin1 larc)


)
(princ "Object is not a ARC !")
)
)
)
(setq larc (rtos larc 2 1) )
(command "dimangular" obj "t" larc pnt )
(princ)
)

ld80721

非常感谢贱人兄,我要的效果就是这样的,我试了很好用的.
多谢多谢
能把你那个标注文字修改lsp程序给我吗?

userzhluserzhl

贱人兄，那个标高的源程序给我一个好吗？谢谢，userzhl@21cn.com

eachy

最初由 userzhluserzhl 发布
[B]贱人兄，那个标高的源程序给我一个好吗？谢谢，userzhl@21cn.com [/B]

如果你不会编程没必要要源码，Lisp很好编辑。没准不小心搞坏了：）

如果你会编程更没必要要源码，自己应该可以写出来：）

userzhl

我不认同楼上的说法，正如我们日常中所用的软件，并不需要自己开发出来，毕竟每个人的精力都是有限的。