当前位置:三九宝宝网 → 宝宝教育 → 智力培养 → 正文

请教高手用Visual LISP较为简单的开发CAD实例谁能给我几个!急

更新:02-18 整理:39baobao.com
字体:

[外贸开发信客户的问题我不知道怎么回复请教一下高手]你们公司是私人公司还是上市公司? 如果是私人公司,一般都是TT。 那样:1,Generally speaking, we are perfer to 100% TT in advance. and our trade term is FOB***. Pls let m...+阅读

(defun c:dq ( / &mod ) (if (null vlax-dump-object) (vl-load-com) ) (if (null &mod) (setq &mod (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))) ) (if (setq &len (entsel "\n选择要测量斜度的线段 ")) (progn (setq pts (cadr &len) &len (vlax-ename->vla-object (car &len))) (setq pto (vlax-curve-getclosestpointto &len pts)) (setq pt1 (vlax-curve-getclosestpointto &len (polar pts (* pi 0.5) 0.001))) (setq pt2 (vlax-curve-getclosestpointto &len (polar pts (* pi 1.5) 0.001))) (setq #ang (min (angle pt1 pt2) (angle pt2 pt1))) (setq #j T &mte nil &lea nil) (while #j (setq jj (grread 1 4 1) #j (car jj) j (cadr jj)) (cond ((= #j 5) ($dq-moveaction) ) ((= #j 3) ($dq-clickleft) ) ((= #j 12) ($dq-clickright) ) ) ) ) ) (princ))(defun $dq-clickleft ( ) (setq #j nil) (princ " OK!"))(defun $dq-clickright ( ) (if (and &mte (null (vlax-erased-p &mte))) (vla-erase &mte) ) (if (and &lea (null (vlax-erased-p &lea))) (vla-erase &lea) ) (setq #j nil) (princ " Cancel!"))(defun $dq-leaderpoint ( pts / lis dou ) (setq lis (apply 'append (mapcar '(lambda (x) (list (car x) (cadr x) (caddr x))) pts))) (setq dou (vlax-make-safearray vlax-vbdouble (cons 0 (1- (* 3 (length pts)))))) (vlax-make-variant (vlax-safearray-fill dou lis)))(defun $dq-moveaction ( ) (if (>(setq #ang (/ (* #ang 180) pi)) 90) (setq #ang (- 180 #ang)) ) (if (or (null &mte) (vlax-erased-p &mte)) (progn (setq &mte (vla-addmtext &mod (vlax-3d-point j) 0 (strcat (rtos #ang 2 (getvar "DIMDEC")) "%%D"))) (vla-put-color &mte (getvar "DIMCLRT")) (vla-put-stylename &mte (getvar "DIMTXSTY")) (vla-put-height &mte (getvar "DIMTXT")) ) (vla-put-insertionpoint &mte (vlax-3d-point j)) ) (if (>(car j) (car pto)) (if ( (if (>(angle pto j) (angle j pto)) (vla-put-attachmentpoint &mte 4) (vla-put-attachmentpoint &mte 6) ) (if ( (vla-put-attachmentpoint &mte 4) (vla-put-attachmentpoint &mte 6) ) ) (if (>(cadr j) (cadr pto)) (if (>(angle pto j) (angle j pto)) (vla-put-attachmentpoint &mte 4) (vla-put-attachmentpoint &mte 6) ) (if ( (vla-put-attachmentpoint &mte 4) (vla-put-attachmentpoint &mte 6) ) ) ) (if (or (null &lea) (vlax-erased-p &lea)) (setq &lea (vla-addleader &mod ($dq-leaderpoint (list pto j)) &mte aclinewitharrow)) (vla-put-Coordinates &lea ($dq-leaderpoint (list pto j))) ) (vla-put-verticaltextposition &lea 0) (vla-update &lea));;;帮人写的选定斜线用引线加文字来标注角度的程序,不短了吧

本文地址:https://www.39baobao.com/show/32_73436.html

以上内容来自互联网,请自行判断内容的正确性。若本站收录的信息无意侵犯了贵司版权,请联系我们,我们会及时处理和回复,谢谢.

以下为关联文档:

请教高手给我创编一个体育游戏教案要有创新谢谢急名称:割麦子 一、游戏准备:手榴弹若干枚或饮料瓶(如可乐瓶等),接力棒四根。场地布置如图1-6: 二、游戏方法: 把游戏者分成人数相等的两队,各队再等分成甲、乙两组,相对排纵队于起终...

请教高手怎样制作Excel插入统计图表其实你步骤都知道,就是个别要点没掌握. 操作要点: 1、数据区域只要包含数据区域就可以,如果部门在列方向,不要将列标题包含进去,如果部门在行方向,不要将行标题包含进去; 2、如果部...

我带了一支小学女子排球队队伍还有二十天就比赛了请教高手给予赛我就是二传! 其实我觉得还是要靠团队的努力!在比赛时,多是在打心理仗,如果在场上,虽然你们没有什么很好的扣球,但对方无论是什么球你们都能接起来的话,那对方的选手就会出现急躁等...

用SQL语句实现一个统计功能请高手帮忙不胜感激select col as A,count (1) as B from (select case A when '1' then 'A',when '2' then 'B' when '3' then 'C' when '4' then 'D' when '5' then 'E' when '6&#...

请教高手给我创编一个体育游戏教案要有创新谢谢急!名称:割麦子 一、游戏准备:手榴弹若干枚或饮料瓶(如可乐瓶等),接力棒四根。场地布置如图1-6: 二、游戏方法: 把游戏者分成人数相等的两队,各队再等分成甲、乙两组,相对排纵队于起终...

用彩色铅笔画画有些问题请教各位请进来下谢谢呃....是这样的。水溶铅如果不用水润的话效果其实和普通彩铅一样。彩铅的话我推荐你用“中华牌”的,这牌子我用了十几年了,从小的时候就开始用。”真彩“和”中华“没得比,就像...

手机游戏三国亡灵怎么用八门神器求高手教解第一种方法就是使用八门神器了。因为游戏中的金钱数量是可以直接使用八门神器搜索出来并进行修改的,所以小编就不多说了,重点讲解修改蓝玉的方法,因为蓝玉是无法直接搜索到的。...

向高手请教计划写作时各级标题和正文的字体要求字体标题序号要求:公文标题使用2号加粗宋体字。 公文正文使用3号仿宋字体。 一级标题用3号黑体字,用“一、”、“二、”、“三、”……标识。 二级标题用加粗3号楷体,用汉字数...

如何使用visual studio 2015开发安卓应用方法/步骤 1 首先在开始按钮处启动visual studio 2015软件。 如何使用visual studio 2015开发安卓应用 2 在软件的主界面中选择创建新的工程,如图所示。 如何使用visual stud...