帮帮忙，好心人

晓雨 · 发表于 2004-3-13 11:31:00

(defun c:biaoshi(/ n pt txt pt1 pt2 pt3 pttxt)
(setq n(getint "\n 输入标示零件个数: " )
txt(getstring "\n 输入起始零件序号: " )
pt(getpoint "\n 输入标记线连接点: " )
pt1(list (+ (car pt) 4) (cadr pt))
pttxt(list (+ (car pt) 2) (+ (cadr pt) 1.8))
) (setq cl(getvar "clayer"))
(setq os(getvar "osmode"))
(setvar "clayer" "文字标注")
(setvar "osmode" 0) (command"line" pt pt1 "")
(command"text" "j" "mc" pttxt "2.5" "0" txt "" "")
(repeat (- n 1)
(setq pt2(polar pt1 (/ (* pi 7) 4) 1.4))
(command"line" pt1 pt2 "")
(setq pt3(polar pt2 (/ pi 4) 1.4))
(setq pt1(list (+ (car pt3) 4) (cadr pt3)))
(command"line" pt2 pt3 pt1 "")
(setq pttxt(list (+ (car pt3) 2) (+ (cadr pt) 1.8))) ;定义文字插入点
;这里要请教高手 (command "text" "" "" pttxt "" "" txt "" "") ;插入加了1的文字
)
(setvar "clayer" cl)
(setvar "osmode" os)
) 各位高手帮下忙，帮我补一下这个程序的关键部分，我是要填入的文字在原来的基础上依次加1，像图中的21、22一样。谢谢

f5612140 · 发表于 2004-3-13 12:13:00

本帖最后由作者于 2004-3-13 13:21:15 编辑

請自行對照其中的差異

(defun c:biaoshi(/ n pt txt pt1 pt2 pt3 pttxt)
(setq n(getint "\n ?入?示零件??: " )
txt(getstring "\n ?入起始零件序?: " )
pt(getpoint "\n ?入????接?: " )
pt1(list (+ (car pt) 4) (cadr pt))
pttxt(list (+ (car pt) 2) (+ (cadr pt) 1.8))
) (setq cl(getvar "clayer"))
(setq os(getvar "osmode"))
(setvar "clayer" "文字?注")
(setvar "osmode" 0) (command"line" pt pt1 "")
(command"text" "mc" pttxt 2.5 0 txt)
(repeat (- n 1)
(setq pt2(polar pt1 (/ (* pi 7) 4) 1.4))
(command"line" pt1 pt2 "")
(setq pt3(polar pt2 (/ pi 4) 1.4))
(setq pt4(list (+ (car pt3) 4) (cadr pt3)))
(command"line" pt2 pt3 pt4 "")
(setq pttxt(list (+ (car pt3) 2) (+ (cadr pt) 1.8))) ;定?文字插入?
;?里要?教高手 (setq txt (rtos (+ (atoi txt) 1) 2 0))
(print txt)
(command "text" "MC" pttxt 2.5 0 txt) ;插入加了1的文字
(setq pt1 pt4)
)
(setvar "clayer" cl)
(setvar "osmode" os)
)

meflying · 发表于 2004-3-13 12:15:00

如果能理解这句话，相信就可以解决了

(setq txt "20")

(setq txt (rtos (+ (atoi txt) i)));i=0,1,2,3,4,...

晓雨 · 发表于 2004-3-13 17:50:00

好极了。 (atoi string) 此函数可用来将字符串转换成整型数。

(reverse lst)

此函数将依据所给定的 mode、precision、AutoCAD 的UNITMODE 系统变量及DIMZIN尺寸变量来返回一字符串以表示 number。mode 与precision是整型数, 表示所选择的线性单位模式和精确度。AutoCAD 中所提供的mode 值如下:

RTOS 模式	编辑格式
1	科学记数 (Scientific)
2	十进制 (Decimal)
3	工程 (尺和十进位寸) (Engineering)
4	建筑 (尺和分数寸) (Architectural)
5	任意的分数单位 (Fractional)

为什么要改成十进制啊？

meflying · 发表于 2004-3-13 17:55:00

为什么？没有人要求你用10进制啊，如果你愿意，可以随便用。。。

晓雨 · 发表于 2004-3-13 18:12:00

(setq txt (rtos (+ (atoi txt) 1) 2 0))
这不是十进制是什么，

meflying · 发表于 2004-3-13 18:26:00

你给的是函数介绍，介绍中并没有要求这样，所以。。。

程序这样写也没有任何理由，你需要可以改成别的。。。因为写出来的程序可能都是某几种可能的一种，不可能都写全了，如果这样问就问不完了，，，比如，你为什么用红色的字，为什么要用那个表情，为什么你的汉字数是9个？？？

无痕 · 发表于 2004-3-13 19:59:00

呵呵，有趣

mccad · 发表于 2004-3-13 21:05:00

这是5年前写的程序，一直没有做修改，你做个参考吧：

;;
;; 本软件免费可供进行任何用途需求的拷贝、修改及发行, 但请遵循下述原则:
;;
;; 1) 上列的版权通告必须出现在每一份拷贝里。
;; 2) 相关的说明文档也必须载有版权通告及本项许可通告。
;;
;; 本软件仅提供作为应用上的参考, 而未声明或隐含任何保证; 对于任何特殊
;; 用途之适应性, 以及商业销售所隐含作出的保证, 在此一概予以否认。
;;
;; http://www.mjtd.com http://www.mccad.net
;;
;; e-mail:mccad@mjtd.com
;;
;;
(princ"\n总装明细序号填写程序")
(defun c:mxxh(/ oldecho oldlayer oldstyle oldsize oldpwid oldsnap oldortho
sele txto txt pt_s pt_m pt_t pt_r pt_l pt_c pt_e tt num)
(setq oldecho (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq oldlayer (getvar "clayer"))
(if (=(tblobjname "LAYER" "3") nil)
(progn
(entmake (list
'(0 . "LAYER")
'(100 . "AcDbSymbolTableRecord")
'(100 . "AcDbLayerTableRecord")
'(6 . "CONTINUOUS")
'(62 . 3)
'(70 . 0)
(cons 2 "3")
)
)
)
)
(setvar "clayer" "3")
(setq oldstyle (getvar "textstyle"))
(setq oldsize (getvar "textsize"))
(setq oldpwid (getvar "plinewid"))
(setvar "plinewid" 0)
(setq oldsnap(getvar"osmode"))
(setq oldortho(getvar"orthomode"))
(initget "Single Horizonal Vertical")
(setq sele(getkword "\n部装明细序号填写方式[水平多项(H)/垂直多项(V)/单一序号(S)]<单一序号>:"))
(if (not sele)
(setq sele "Single")
)
(setq txt0 1)
(while (/= sele "eXit")
(initget 1)
(setvar "osmode" 0)
(setq pt_s(getpoint "\n选择引线起点:"))
(initget 1)
(setvar "osmode" oldsnap)
(setvar "orthomode" 0)
(setq pt_m(getpoint pt_s"\n选择序号起点:"))
(setq pt_t (polar pt_m (/ PI 2) 3.5))
(command "donut" "0" "0.5" "non" pt_s "")
(cond
((= sele "Single")
(princ (strcat"\n请输入序号<" (itoa txt0) ">:"))
(setq txt(getint))
(if (not txt)
(setq txt txt0)
)
(setq txt0 (+ txt 1))
(if (> (car pt_m)(car pt_s))
(progn
(setq pt_c (polar pt_m PI 4))
(setq pt_e (polar pt_m 0 4))
)
(progn
(setq pt_c (polar pt_m 0 4))
(setq pt_e (polar pt_m PI 4))
)
)
(command "pline" "non" pt_s "non" pt_c "non" pt_e "")
(command "text" "m" "non" pt_t "5" "0" txt)
)
((= sele "Vertical")
(initget 1)
(setq num(getint"\n请输入同零件组的项数:"))
(if (>(car pt_m)(car pt_s))
(progn
(setq pt_c(polar pt_m PI 4))
(setq pt_e(polar pt_m 0 4))
)
(progn
(setq pt_c(polar pt_m 0 4))
(setq pt_e(polar pt_m PI 4))
)
)
(setq tt 1)
(while(<= tt num)
(princ(strcat "\n请输入序号<" (itoa txt0) ">:"))
(setq txt(getint))
(if (not txt)
(setq txt txt0)
)
(setq txt0 (+ txt 1))
(command "pline" "non" pt_s "non" pt_c "non" pt_e "")
(command "text" "m" "non" pt_t "5" "0" txt)
(setq pt_s pt_c)
(setq pt_c (polar pt_c (/ PI 2) 8))
(setq pt_e (polar pt_e (/ PI 2) 8))
(setq pt_t (polar pt_t (/ PI 2) 8))
(setq tt (1+ tt))
)
)
((= sele "Horizonal")
(initget 1)
(setq num(getint"\n请输入同零件组的项数:"))
(setq pt_l(polar pt_m PI 4))
(setq pt_r(polar pt_l 0 (+(*(- num 1) 10.828) 8)))
(if (and (<(car pt_l)(car pt_s))(>(abs(- (car pt_l) (car pt_s)))(abs(-(car pt_r)(car pt_s)))))
(progn
(command "pline" "non" pt_s "non" pt_r "non" "@2<-135" "non" "@8<180" "")
(setq tt (1+ tt))
)
)
(progn
(command "pline" "non" pt_s "non" pt_l "non" "@2<-45" "non" "@8<0" "")
(setq tt(1+ tt))
)
)
)
(setq tt 1)
(while (<= tt num)
(princ (strcat "\n请输入序号<" (itoa txt0) ">:"))
(setq txt (getint))
(if (not txt)
(setq txt txt0)
)
(setq txt0 (+ txt 1))
(command "text" "m" "non" pt_t "5" "0" txt)
(setq pt_t(polar pt_t 0 10.828))
(setq tt (1+ tt))
)
)
)
(initget "Single Horizonal Vertical eXit")
(setq sele(getkword "\n部装明细序号填写方式[水平多项(H)/垂直多项(V)/单一序号(S)/退出(X)]<退出>:"))
(if (not sele)
(setq sele "eXit")
)
)
(setvar "clayer" oldlayer)
(setvar "cmdecho" oldecho)
(setvar "textstyle" oldstyle)
(setvar "textsize" oldsize)
(setvar "plinewid" oldpwid)
(setvar "orthomode" oldortho)
(princ)
)
(princ"已装载")

;; 版权所有 (C) 1991-2000   明经通道 郑立楷
;;
;;     本软件免费可供进行任何用途需求的拷贝、修改及发行, 但请遵循下述原则:
;;
;;     1)   上列的版权通告必须出现在每一份拷贝里。
;;     2)   相关的说明文档也必须载有版权通告及本项许可通告。
;;
;;     本软件仅提供作为应用上的参考, 而未声明或隐含任何保证; 对于任何特殊
;;     用途之适应性, 以及商业销售所隐含作出的保证, 在此一概予以否认。
;;
;;     http://www.mjtd.com     http://www.mccad.net
;;
;;     e-mail:mccad@mjtd.com
;;
;;
(princ"\n总装明细序号填写程序")
(defun c:mxxh(/ oldecho oldlayer oldstyle oldsize oldpwid oldsnap oldortho
                               sele txto txt pt_s pt_m pt_t pt_r pt_l pt_c pt_e tt num)
   (setq oldecho (getvar "cmdecho"))
   (setvar "cmdecho" 0)
   (setq oldlayer (getvar "clayer"))
             (if (=(tblobjname "LAYER" "3") nil)
                     (progn
                             (entmake (list
                                                       '(0 . "LAYER")
                                                       '(100 . "AcDbSymbolTableRecord")
                                                       '(100 . "AcDbLayerTableRecord")
                                                       '(6 . "CONTINUOUS")
                                                       '(62 . 3)
                                                       '(70 . 0)
                                                         (cons 2 "3")
                                               )
                             )
                     )
             )
     (setvar "clayer" "3")
   (setq oldstyle (getvar "textstyle"))
   (setq oldsize (getvar "textsize"))
   (setq oldpwid (getvar "plinewid"))
   (setvar "plinewid" 0)
   (setq oldsnap(getvar"osmode"))
   (setq oldortho(getvar"orthomode"))
   (initget "Single Horizonal Vertical")
   (setq sele(getkword "\n部装明细序号填写方式[水平多项(H)/垂直多项(V)/单一序号(S)]<单一序号>:"))
   (if (not sele)
       (setq sele "Single")
   )
   (setq txt0 1)
   (while (/= sele "eXit")
       (initget 1)
               (setvar "osmode" 0)
  (setq pt_s(getpoint "\n选择引线起点:"))
  (initget 1)
               (setvar "osmode" oldsnap)
               (setvar "orthomode" 0)
  (setq pt_m(getpoint pt_s"\n选择序号起点:"))
  (setq pt_t (polar pt_m (/ PI 2) 3.5))
  (command "donut" "0" "0.5" "non" pt_s "")
  (cond
     ((= sele "Single")
         (princ (strcat"\n请输入序号<" (itoa txt0) ">:"))
    (setq txt(getint))
    (if (not txt)
       (setq txt txt0)
    )
    (setq txt0 (+ txt 1))
    (if (> (car pt_m)(car pt_s))
       (progn
           (setq pt_c (polar pt_m PI 4))
      (setq pt_e (polar pt_m 0   4))
       )
       (progn
           (setq pt_c (polar pt_m 0   4))
      (setq pt_e (polar pt_m PI 4))
       )
    )
    (command "pline" "non" pt_s "non" pt_c "non" pt_e "")
    (command "text" "m" "non" pt_t "5" "0" txt)
     )
     ((= sele "Vertical")
         (initget 1)
    (setq num(getint"\n请输入同零件组的项数:"))
    (if (>(car pt_m)(car pt_s))
       (progn
           (setq pt_c(polar pt_m PI 4))
      (setq pt_e(polar pt_m 0   4))
       )
       (progn
           (setq pt_c(polar pt_m 0   4))
      (setq pt_e(polar pt_m PI 4))
       )
    )
    (setq tt 1)
    (while(<= tt num)
       (princ(strcat "\n请输入序号<" (itoa txt0) ">:"))
       (setq txt(getint))
       (if (not txt)
           (setq txt txt0)
       )
       (setq txt0 (+ txt 1))
                   (command "pline" "non" pt_s "non" pt_c "non" pt_e "")
       (command "text" "m" "non" pt_t "5" "0" txt)
       (setq pt_s pt_c)
       (setq pt_c (polar pt_c (/ PI 2) 8))
       (setq pt_e (polar pt_e (/ PI 2) 8))
       (setq pt_t (polar pt_t (/ PI 2) 8))
       (setq tt (1+ tt))
    )
     )
     ((= sele "Horizonal")
         (initget 1)
    (setq num(getint"\n请输入同零件组的项数:"))
    (setq pt_l(polar pt_m PI 4))
    (setq pt_r(polar pt_l 0 (+(*(- num 1) 10.828) 8)))
    (if (and (<(car pt_l)(car pt_s))(>(abs(- (car pt_l) (car pt_s)))(abs(-(car pt_r)(car pt_s)))))
       (progn
           (command "pline" "non" pt_s "non" pt_r "non" "@2<-135" "non" "@8<180" "")
         (setq tt (1+ tt))
      )
       )
       (progn
           (command "pline" "non" pt_s "non" pt_l "non" "@2<-45" "non" "@8<0" "")
         (setq tt(1+ tt))
      )
       )
    )
         (setq tt 1)
    (while (<= tt num)
       (princ (strcat "\n请输入序号<" (itoa txt0) ">:"))
       (setq txt (getint))
       (if (not txt)
           (setq txt txt0)
       )
       (setq txt0 (+ txt 1))
       (command "text" "m" "non" pt_t "5" "0" txt)
       (setq pt_t(polar pt_t 0 10.828))
       (setq tt (1+ tt))
    )
     )
  )
       (initget "Single Horizonal Vertical eXit")
       (setq sele(getkword "\n部装明细序号填写方式[水平多项(H)/垂直多项(V)/单一序号(S)/退出(X)]<退出>:"))
       (if (not sele)
           (setq sele "eXit")
       )
   )
   (setvar "clayer" oldlayer)
   (setvar "cmdecho" oldecho)
   (setvar "textstyle" oldstyle)
   (setvar "textsize" oldsize)
   (setvar "plinewid" oldpwid)
   (setvar "orthomode" oldortho)
   (princ)
)
(princ"已装载")

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

帮帮忙，好心人

本帖子中包含更多资源