程序求助

st788796 · 发表于 2013-11-18 21:13:47

hphkjz 发表于 2013-11-18 21:03
能够运行了，哥怎么的能够保留到整数，还有数字是右对齐，如何能够相对于夹点居中对齐了？

(rtos d)
->
(rtos d 2 0)

hphkjz · 发表于 2013-11-18 21:23:30

ok，非常感谢老大哥帮忙，已经非常满意了。谢谢谢谢。就是不知道显示的数字能不能居中对齐呢？

newer · 发表于 2013-11-18 21:27:39

hphkjz 发表于 2013-11-18 21:23
ok，非常感谢老大哥帮忙，已经非常满意了。谢谢谢谢。就是不知道显示的数字能不能居中对齐呢？

好像还没完{:soso_e113:}

st788796 · 发表于 2013-11-18 21:43:10

newer 发表于 2013-11-18 21:27
好像还没完

1 一开始就计算好点
2 用 Hoz Ver 模式自动调好位置，就像上面的程序，最后用 XD::Text:Adjust 调整对齐方式

hphkjz · 发表于 2013-11-18 21:50:43

大哥，我就是个山村野汉打游击的，没有受过正规训练。都得仰仗大哥你呢，我只知道数字没有居中显示，我还得一个一个挪。还盼大哥你能够直接发代码吧，说的深奥我就真的蒙圈了

st788796 · 发表于 2013-11-18 21:52:22

hphkjz 发表于 2013-11-18 21:50
大哥，我就是个山村野汉打游击的，没有受过正规训练。都得仰仗大哥你呢，我只知道数字没有居中显示，我还得 ...

贴个图片文字怎么放置

hphkjz · 发表于 2013-11-18 22:27:37

st788796 发表于 2013-11-18 21:52
贴个图片文字怎么放置

大哥不好意思，电脑死机了

st788796 · 发表于 2013-11-18 22:30:28

hphkjz 发表于 2013-11-18 22:27
大哥不好意思，电脑死机了

那个"长度是"放哪去了?

hphkjz · 发表于 2013-11-18 22:35:00

st788796 发表于 2013-11-18 22:30
那个"长度是"放哪去了?

这是那个连续标注那个代码做出来的，我主要是想让咱刚刚的数字也这样显示。那个“长度是”文字不碍事，我临时删了

st788796 · 发表于 2013-11-18 22:42:09

hphkjz 发表于 2013-11-18 22:35
这是那个连续标注那个代码做出来的，我主要是想让咱刚刚的数字也这样显示。那个“长度是”文字不碍事，我 ...

(defun c:tt (/ ss zh)
(if
(and (setq ss (ssget '((0 . "*line,arc,ellipse"))))
(progn
(if (= (setq
zh (getstring (strcat "\n字高<"
(rtos (getvar "textsize") 2 2)
">: "
)
)
)
""
)
(setq zh (getvar "textsize"))
(setvar "textsize" (distof zh))
)
(setq zh (getvar "textsize"))
)
)
(mapcar '(lambda (x / d pmid an txt2)
(setq d (xdrx_curve_getdistatpoint
x
(xdrx_curve_getendpoint x)
)
pmid (cadr (xdrx_curve_getpoint x))
an (XD::Geom:AngleFormat
(angle '(0. 0. 0.)
(xdrx_curve_getfirstderiv
x
(xdrx_curve_getparamatpoint x pmid)
)
)
)
txt2 (xdrx_text_make
pmid
(rtos d)
zh
an
)
)
(xdrx_text_setvermode txt2 1) ;_顺序不同会自动调整位置
(xdrx_text_sethozmode txt2 1)
)
(xdrx_pickset->ents ss)
)
)
(princ)
)

(defun c:tt (/ ss zh) 
  (if 
    (and (setq ss (ssget '((0 . "*line,arc,ellipse")))) 
         (progn 
           (if (= (setq 
                    zh (getstring (strcat "\n字高<" 
                                          (rtos (getvar "textsize") 2 2) 
                                          ">: " 
                                  ) 
                       ) 
                  ) 
                  "" 
               ) 
             (setq zh (getvar "textsize")) 
             (setvar "textsize" (distof zh)) 
           ) 
           (setq zh (getvar "textsize")) 
         ) 
    ) 
     (mapcar '(lambda (x / d pmid an txt2) 
                (setq d           (xdrx_curve_getdistatpoint 
                             x 
                             (xdrx_curve_getendpoint x) 
                           ) 
                      pmid (cadr (xdrx_curve_getpoint x)) 
                      an   (XD::Geom:AngleFormat 
                             (angle '(0. 0. 0.) 
                                    (xdrx_curve_getfirstderiv 
                                      x 
                                      (xdrx_curve_getparamatpoint x pmid) 
                                    ) 
                             ) 
                           ) 
                      txt2 (xdrx_text_make 
                             pmid 
                             (rtos d) 
                             zh 
                             an 
                           ) 
                ) 
                (xdrx_text_setvermode txt2 1) ;_顺序不同会自动调整位置 
                (xdrx_text_sethozmode txt2 1) 
              ) 
             (xdrx_pickset->ents ss) 
     ) 
  ) 
  (princ) 
)

hphkjz · 发表于 2013-11-18 23:04:13

st788796 发表于 2013-11-18 22:42

大哥，我试过了，数字调整过来了，你真是厉害呢，不过“长度是”又没了，我最想要的效果是下面这个图

st788796 · 发表于 2013-11-18 23:20:14

hphkjz 发表于 2013-11-18 23:04
大哥，我试过了，数字调整过来了，你真是厉害呢，不过“长度是”又没了，我最想要的效果是下面这个图

兄弟能不能一次说完整!

(defun XD::String:ActualWidth (str sty h scl)
(and
(or
(not sty)
(= sty "")
(not (tblsearch "style" sty))
)
(setq sty (getvar "textstyle"))
)
(abs (car (apply
'mapcar
(cons '-
(textbox (list (cons 1 str)
(cons 7 sty)
(cons 40 h)
(cons 41 scl)
)
)
)
)
)
)
)
(defun c:tt (/ ss zh)
(if
(and (setq ss (ssget '((0 . "*line,arc,ellipse"))))
(progn
(if (= (setq
zh (getstring (strcat "\n字高<"
(rtos (getvar "textsize") 2 2)
">: "
)
)
)
""
)
(setq zh (getvar "textsize"))
(setvar "textsize" (distof zh))
)
(setq zh (getvar "textsize"))
)
)
(mapcar
'(lambda (x / d pmid an txt2)
(setq d (xdrx_curve_getdistatpoint
x
(xdrx_curve_getendpoint x)
)
pmid (cadr (xdrx_curve_getpoint x))
an (XD::Geom:AngleFormat
(angle '(0. 0. 0.)
(xdrx_curve_getfirstderiv
x
(xdrx_curve_getparamatpoint x pmid)
)
)
)
txt2 (xdrx_text_make
pmid
(rtos d 2 0)
zh
an
)
)
(xdrx_text_setvermode txt2 1) ;_顺序不同会自动调整位置
(xdrx_text_sethozmode txt2 1)
(xdrx_text_make
(polar pmid
pi
(+ (/ d 2.) (XD::String:ActualWidth "长度是" "" zh 1.))
)
"长度是"
zh
an
)
)
(xdrx_pickset->ents ss)
)
)
(princ)
)

(defun XD::String:ActualWidth (str sty h scl) 
  (and 
    (or 
      (not sty) 
      (= sty "") 
      (not (tblsearch "style" sty)) 
    ) 
    (setq sty (getvar "textstyle")) 
  ) 
  (abs (car (apply 
              'mapcar 
              (cons '- 
                    (textbox (list (cons 1 str) 
                                   (cons 7 sty) 
                                   (cons 40 h) 
                                   (cons 41 scl) 
                             ) 
                    ) 
              ) 
            ) 
       ) 
  ) 
) 
(defun c:tt (/ ss zh) 
  (if 
    (and (setq ss (ssget '((0 . "*line,arc,ellipse")))) 
         (progn 
           (if (= (setq 
                    zh (getstring (strcat "\n字高<" 
                                          (rtos (getvar "textsize") 2 2) 
                                          ">: " 
                                  ) 
                       ) 
                  ) 
                  "" 
               ) 
             (setq zh (getvar "textsize")) 
             (setvar "textsize" (distof zh)) 
           ) 
           (setq zh (getvar "textsize")) 
         ) 
    ) 
     (mapcar 
       '(lambda        (x / d pmid an txt2) 
          (setq        d    (xdrx_curve_getdistatpoint 
                       x 
                       (xdrx_curve_getendpoint x) 
                     ) 
                pmid (cadr (xdrx_curve_getpoint x)) 
                an   (XD::Geom:AngleFormat 
                       (angle '(0. 0. 0.) 
                              (xdrx_curve_getfirstderiv 
                                x 
                                (xdrx_curve_getparamatpoint x pmid) 
                              ) 
                       ) 
                     ) 
                txt2 (xdrx_text_make 
                       pmid 
                       (rtos d 2 0) 
                       zh 
                       an 
                     ) 
          ) 
          (xdrx_text_setvermode txt2 1) ;_顺序不同会自动调整位置 
          (xdrx_text_sethozmode txt2 1) 
          (xdrx_text_make 
            (polar pmid 
                   pi 
                   (+ (/ d 2.) (XD::String:ActualWidth "长度是" "" zh 1.)) 
            ) 
            "长度是" 
            zh 
            an 
          ) 
        ) 
       (xdrx_pickset->ents ss) 
     ) 
  ) 
  (princ) 
)

hphkjz · 发表于 2013-11-18 23:29:00

大哥，真是对不起你了，我一直用手机上了，下班才有点空隙摸摸电脑，也没表达好意思，真是对不住大哥了。以后知道了，直接发个图片大哥就能清楚了。谢谢谢谢谢谢谢谢

hphkjz · 发表于 2013-11-18 23:37:35

st788796 发表于 2013-11-18 23:20
兄弟能不能一次说完整!

大哥，上面这个代码的命令快捷键是哪个哇？

hphkjz · 发表于 2013-11-19 00:07:04

hphkjz 发表于 2013-11-18 23:37
大哥，上面这个代码的命令快捷键是哪个哇？

找到了找到了，完美运行，谢谢大哥

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

[求助] 程序求助

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评