marting的留言板 - 晓东CAD家园-论坛

/db_自贡黄明儒_ 2021-9-6 21:19

我想在win10 安装2008 32位，发一个给我可好？ 740688321qq.com

qyming2000 2019-3-13 08:09

帮我看下这个程序

(defun addToolbars (toolbarname       lst    /    index    cmdstr
   helpstr label    largeicon smallicon toolbar
   )
  (setq toolbar
   (vla-add
   (vla-get-toolbars
      (vla-item
         (vla-get-menugroups (vlax-get-acad-object))
         0
      )
   )
   toolbarname
   )
index 0
  )
  (foreach x lst
(setq name    (car x)
   cmdstr (cadr x)
   smallicon (caddr x)
   helpstr lname
   largeicon smallicon
)
(cond ((= name "--") (vla-addseparator toolbar index))
   (t
   (setq newtoolbar
   (vla-addtoolbarbutton toolbar index name helpstr cmdstr)
   )
   (vla-setbitmaps newtoolbar smallicon largeicon)
   (vla-put-helpstring newtoolbar helpstr)

   )
)
(setq index (1+ index))
  )
  (princ)
)

(addtoolbars
  "文字工具"
  '(("文字合并" "wzhb " "wzhb.bmp")
("文字对齐" "wzdq" "wzdq.bmp")
("--")
("文字编号" "wzbh" "wzbh.bmp")
)
)
; 错误: Automation 错误。参数 wzhb.bmp (位于 SetBitmap 中) 无效

zhong2013 2018-11-21 15:57

你能给看看。。。可以么？

zhong2013 2018-11-21 15:28

请教一下，怎么使用DBX批量打印，说一下思路好吗。

CAD爱好者2018 2018-7-7 21:51

你好，前辈，可否指点一下我的帖子？关于如何获取滚轮滚动时CAD图形的放大倍数数值？

usbfans 2017-10-24 00:40

(defun XD::Math:Int->Hex (n / lv rv lc rc)，第一行里的：：和：分别是啥意思?括号里的参数是啥意思？给红包，私信我。

wk2004 2017-7-18 08:02

昨天求助在cad中取得线，文字，尺寸线等属性，取得这些的层，线色等等的属性，求原代码。我以前有一个，在2012本版之前都好使，但不清楚为什么在CAD2016不好使。看见了你的回答，十分感谢，但我不会lisp，能把你说的那些帮我加到我的那个lisp里面，这样我直接拷贝就能用了，或者联系我的QQ112841649 十分感谢

/db_自贡黄明儒_ 2017-5-23 15:53

我见你力比我深厚，不是愿意优化一下，怎么联系？

WhoCanSay 2017-1-23 11:51

你说的那本书呢？

marting的小窝 http://bbs.xdcad.net/?3388 [收藏] [复制] [分享] [RSS]

留言板

marting