CAD自動標注

dfine2008 · 发表于 2006-7-7 22:08:00

[此贴子已经被作者于2006-7-21 8:38:21编辑过]

LIAOYAO · 发表于 2006-7-11 09:07:00

CAD中输入: -bh ---------------------------------------------(defun c:-bh (/ oce1 qz n1 zn h1 sxh1 p1)(setq qz (getstring "\n请输入前缀相同的部分: "))(if (not (setq n1 (getint "\n请输入起始顺序号 <1>: ")))(setq n1 1))(if (not (setq zn (getint "\n请输入增加或减少的序数 <+1>: ")))(setq zn 1))(if (not (setq h1 (getreal "\n请指定文字高度 <2.5>: ")))(setq h1 2.5))(setqsxh1 (strcat qz (itoa n1))p1 (getpoint "\n请指定插入点: "))(while (/= p1 nil)(command "text" "m" p1 h1 0 sxh1)(setqn1 (+ n1 zn)sxh1 (strcat qz (itoa n1))p1 (getpoint "\n请指定下一插入点: ")))(setvar "cmdecho" oce1)(princ))   <span lang="EN-US" style="FONT-SIZE: 12pt; COLOR: black; FONT-FAMILY: 細明體; mso-bidi-font-family: 'Times New Roman'; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA; mso-font-kerning: 1.0pt; mso-fareast-font-family: SimSun;">(princ "\n    <span lang="ZH-CN" style="FONT-SIZE: 12pt; COLOR: black; FONT-FAMILY: SimSun; mso-ascii-font-family: 細明體; mso-hansi-font-family: 細明體; mso-bidi-font-family: 'Times New Roman'; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA; mso-font-kerning: 1.0pt;">欢迎加载<span lang="ZH-CN" style="FONT-SIZE: 12pt; COLOR: black; FONT-FAMILY: 細明體; mso-bidi-font-family: 'Times New Roman'; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA; mso-font-kerning: 1.0pt; mso-fareast-font-family: SimSun;"> <span lang="EN-US" style="FONT-SIZE: 12pt; COLOR: black; FONT-FAMILY: 細明體; mso-bidi-font-family: 'Times New Roman'; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA; mso-font-kerning: 1.0pt; mso-fareast-font-family: SimSun;">----   <span lang="ZH-CN" style="FONT-SIZE: 12pt; COLOR: black; FONT-FAMILY: SimSun; mso-ascii-font-family: 細明體; mso-hansi-font-family: 細明體; mso-bidi-font-family: 'Times New Roman'; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA; mso-font-kerning: 1.0pt;">编译<span lang="EN-US" style="FONT-SIZE: 12pt; COLOR: black; FONT-FAMILY: 細明體; mso-bidi-font-family: 'Times New Roman'; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA; mso-font-kerning: 1.0pt; mso-fareast-font-family: SimSun;">:<span lang="EN-US" style="FONT-SIZE: 12pt; COLOR: black; FONT-FAMILY: 細明體; mso-bidi-font-family: 'Times New Roman'; mso-ansi-language: EN-US; mso-fareast-language: ZH-TW; mso-bidi-language: AR-SA; mso-font-kerning: 1.0pt;">

SOLLDY · 发表于 2008-4-29 23:26:28

我也有这玩意,可是标注的不是很美观,所以很少用,不过还是谢谢了

manufac · 发表于 2008-5-8 21:58:01

(defun C:SLOT () ; V1.00
;
; Draws a long slot with rounded ends by specifying center point,
; width, overall length, and angle of slot.
;

  (setq c1 (getpoint "Enter CENTER POINT of SLOT:  ")
      sw (getdist c1 "\nEnter WIDTH of SLOT:  ")
      sl (getdist c1 "\nEnter LENGTH of SLOT:  ")
      phi (getangle c1 "\nEnter ANGLE of SLOT: ")
      dW (mapcar '- (polar c1 (+ phi (/ pi 2)) (/ sw 2)) c1) ;1/2 width vector
      dL (mapcar '- (polar c1 phi (/ (- sl sw) 2)) c1)    ;1/2 length vector
      v1 (mapcar '+ dL (mapcar '* '(-1 -1) dW))    ; vector frm cen to p1
      v3 (mapcar '+ dW dL)                         ; vector frm cen to p3
      p1 (mapcar '+ c1 v1)
      p2 (polar c1 phi (/ sl 2))
      p3 (mapcar '+ c1 v3)
      p4 (mapcar '- c1 v1)
      p5 (polar c1 phi (/ sl -2))
      p6 (mapcar '- c1 v3)
  )
  (setvar "cmdecho" 0)
  (setq tmp (getvar "pdmode"))
  (setvar "pdmode" 0)
  (command "point" c1)
  (command "pline" p6 p1 "A" p3 "L" p4 "A" "CL")
  (setvar "pdmode" tmp)
(princ)
(princ)
)
(prompt "\nType SLOT to envoke the command")

manufac · 发表于 2008-11-11 18:09:23

很好的lisp程序，有没有自动列表的lisp程序？

lxbyuan · 发表于 2009-6-5 21:50:32

1112fdsdfdfgdsf

lxbyuan · 发表于 2009-6-5 21:51:03

gfdgdfgdfgdfgdfgds

lextor · 发表于 2009-6-5 21:57:53

不错

999888abc · 发表于 2009-6-6 10:40:13

谢谢了谢谢了谢谢

xiexiaolong · 发表于 2009-6-6 10:45:50

spring的标注还好一点

shilin84 · 发表于 2009-6-6 10:53:28

不知道有没有用的？估计是半自动的吧~~~

shilin84 · 发表于 2009-6-15 14:32:57

但愿好用，试下效果吧~~~

shilin84 · 发表于 2009-6-16 19:59:11

不错,很好用,谢谢!

fkevs · 发表于 2009-6-16 22:59:01

也来试一下，看好用不！

犀利一击 · 发表于 2009-6-16 23:03:30

这个文件做好后是存放在那个资料内？

martim · 发表于 2009-8-30 18:25:58

也来试一下，看好用不！

martim · 发表于 2009-8-30 18:27:04

但愿好用，试下效果吧~~~

martim · 发表于 2009-8-30 18:28:37

不错

martim · 发表于 2009-8-30 18:29:06

不错

martim · 发表于 2009-8-30 18:29:24

不错

		自动登录	找回密码
密码			注册

申请者注册名：		*默认获取当前用户名
性别：	男女
年龄：		*请填写您的真实年龄
职业：		*请填写您当前的职业
申请版区名称：		*请选择您申请的版区
联系电话：		*请填写您的联系电话，此项必填！
我的QQ：		*请填写您的QQ，此项必填！
我的专业特长：		*请填写您的特长领域
申请理由：		*请填写您为什么要申请的理由
管理措施：		*您准备以何种措施管理申请的版块？

[分享] CAD自動標注

本帖子中包含更多资源

评分

SLOT.LSP

评分

1dfgdfsg

dfgdfgdfgdfgdf

招聘信息 /5

求职信息 /5

技术求助 /5

×