(defun c:rf  (/ p1 ss)
  (if (/= nil (setq ss (ssget)))
    (command “rotate” ss”” (setq p1 (getpoint)) p1
      “rotate” “P” “” p1 “r” p1)))
이리습에서 회전하는 기준(좌표)를 따로 지정하지 않고 자동으로 0,0축에서 개체를
로테이션 시킬수있게 수정좀 부탁드립니다
하루에 문자 몇백개씩 돌리는데 팔이 너무 아파요 ㅜㅡ

원을 그린후 리습 실행하면 원에 중심선 그리는 리습인데
리습실행하면 기본 레이어가 “0”번으로 바뀝니다.
“0”번으로 바뀌지 않고 기본 커런트로 사용하고 있는 레이어 그대로 유지 될 수 있도록
수정 부탁드립니다.

(defun  c:CC()  (setvar   “cmdecho” 0)(setvar “osmode” 0)(setvar “orthomode” 1)
                (setq     ent       (entget  (car     (entsel   “nSelect circle :”))))
                (setq     cen       (cdr     (assoc     10        ent)))
                (setq     rad       (cdr     (assoc     40        ent)))
                (setq     val       (*       rad       1.20))
                (setq     pnt1      (list    (-         (car      cen)      val)      (cadr     cen)))
                (setq     pnt2      (list    (+         (car      cen)      val)      (cadr     cen)))
                (setq     pnt3      (list    (car       cen)      (+        (cadr     cen)      val)))
                (setq     pnt4      (list    (car       cen)      (-        (cadr     cen)      val)))
                (command  “layer”  “t”  “C”  “”)
                (command  “layer”  “s”  “C”  “”)
                (command  “line”    pnt1     pnt2      “”)
                (command  “line”    pnt3     pnt4      “”)
                (command  “layer”  “s”  “0”  “”)
                (princ))

거리 재서 써주는 리습이고요…

다운받아서 고맙게 잘쓰고 있는 리습입니다…감사합니다…

누가 가르쳐 줘서 xy평면 각도 나오게 고쳤는데요…

예를들어,
dist 했을때…XY 평면에서의 각도 = 51d 59’15.4″…이렇게,
각도를 units 설정 한데로, 화면에 text로 써지게 했으면 싶습니다…..

이곳에서 도움만 받아서 죄송 스럽네요…
부탁드립니다…

블록 태그 수정 작업을 할려고 하는데
작업을 좀더 빠르게 할려고 express메뉴에 attout명령어를 여러도면에 사용해야 하는데 스크립트로 짤려고 하니 중간에 파일저장박스때문에
스크립트가 작동이 안되네요..그래서 attout.lsp파일을 수정하고싶은데
리습을 잘알지 못하는터라 attout.lsp 중에서 텍스트파일 을 저장하는 부분에서 다이알로그 박스가 뜨지 않고 dwg파일명 대로 같은디렉토리에 그대로 저장하게 수정하면 될꺼 같아서요.
가능하신분 부탁드리겠습니다.

같은 문자열 일괄 수정하는 리습인데여
2006버전 쓰는데 안되네요
설명하시기를 스크립트를 잡아서 하면 편하다는데 스크립트가 뭔지 모르겟고요
잘하시는분들 쓰기 편하게좀 바꿔주세요 ㅜㅜ

(defun xx (#aa #bb / #a #index #b)
(setq #a(ssget “x” (list(cons 0 “text”)(cons 1 (strcat “*” #aa “*”)))))
(setq #index 0)
(repeat (sslength #a)
(setq #b(vlax-ename->vla-object(ssname #a #index)))
(vla-put-textstring #b(vl-string-subst #bb #aa (vla-get-textstring #b)))
(setq #index(1+ #index))
);;repeat
(princ)
);;defun

2007버젼업하고나니…리습이 안먹혀요..//
고수님들 한수지도 바랍니다.

두번째 중량구하기
(defun c:WT()
(setq a (car (entsel “nSelect object : “)))
(setq b (getreal “n 두께입력:”))
(command “area” “o” a)
(setq c (/ (* (getvar “area”) 7.85) 1000000))
(setq tt (* b c))
(Alert (rtos tt 2 1))
)

안녕하세요.
사용상 약간의 불편함이 있어 스스로 수정하려고 다른리습도 들려다 보고, 책을 보아도 답이 안나오네요. 그래서 다시금 요청 드립니다.
——————————————-
(defun c:ta(/ npt d1 os ot ss1 pt1)
(prompt “nCommand: Text Arrange…”)
(setq ot (getvar “orthomode”))
(setq os (getvar “osmode”))
(setvar “orthomode” 1) (setvar “osmode” 0)
(setq npt (getpoint “n이동할 기준점을 선택하시오->”))
(if (= npt nil) (setq npt cdwnpt))
(setq ept (getpoint npt “n정렬하는 방향을 선택하시오->”))
(setq ag1 (angle npt ept))
(prompt “n문자간의 간격을 입력하시오<") (prin1 cdwd1)
(prompt “>: “)
(setq d1 (getdist npt))
(if (= d1 nil) (setq d1 cdwd1))
(setq ss1 (entsel “n이동할 Text을 선택->”))
(while (/= ss1 nil)
(setq pt1 (osnap (cadr ss1) “ins”))
(command “move” ss1 “” pt1 npt)
(setq npt (polar npt ag1 d1))
(setq ss1 (entsel “n이동할 Text을 선택->”))
)
(setq cdwnpt npt cdwd1 d1)
(setvar “orthomode” ot)
(setvar “osmode” os)
(princ)
)
———————————————————-
텍스트 정렬리습인데 몇가지만 수정을 한다면 사용상 매우 편리할것 같습니다.
1.정렬할 텍스트 선택중 허공(여백)을 클릭하면 리습이 바로 종료 됩니다.특정키,아니면 반드시 “ESC”키로 종료가 되었으면 합니다.
2.정렬할 텍스트를 선택하면서 드레그가 되질 않고 하나하나 텍스트를 찍어야만 정렬 위치로 가는데, 개별선택도 되고, 드레그처럼 여러텍스트를 한꺼번에 선택이 되었으면 합니다.

앞선 질문에 답번을 주신 여러분들께 다시금 감사의 말씀 드립니다.